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SOQ  USER  GUIDE  UPDATES 
June  1980  Updates  to  SOQ80128 

INTRODUCTION 

This  document  defines  the  changes  made  to  the  SOQ  code  (SOQ80128) 
between  January  and  June  of  1980.  The  changes  either  correct  short¬ 
comings  found  in  the  code  or,  more  usually,  document  the  increased 
capability  being  continually  built  into  the  code.  The  SOQ  code  is 
maintained  as  SOQ80128  June  PL, ID  =  ARLOJRA  as  a  NOS/BE— 1  CDC  update 
format  file. 

UPDATES 

1 .  *ID  FIXZRN 

This  update  redefines  the  coeffiencets  to  be  input  to  the  Zernike 
subroutine.  This  new  convention  is  more  physically  meaningful  in  that, 
at  least  for  lower  orders,  the  coefficients  are  in  waves.  For  example, 
to  impose  one  wave  peak  to  peak  of  defocus  (P^)  on  a  beam,  one  would 
input  P(4)=l .  The  phase  applied  is  now: 

4>(I ,  J  )  =  £PkirZk(l,J) 

The  subroutine  affected  is  ZERN.  This  update  does  not  effect  the  rest 
of  the  code. 

2.  *ID  FIXJTR 

This  update  ensures  a  correct  definition  of  DF  in  subroutine  JITRBG 
since  when  JITRBG  is  called  from  subroutine  QUAL,  the  X-coordinate 
array  contains  RX/D  coordinates,  not  the  spatial  coordinates. 

Only  one  line  of  the  code  is  affected  by  this  update. 

3.  *ID  ROTZRN 

Due  to  different  coordinate  system  orientations  for  data,  it  became 
necessary  to  allow  for  this  variation  within  subroutine  ZERN. 

Define  the  data  x  and  y  coordinates  to  be  XROT  and  YROT,  and  the  SOQ 
x  and  y  coordinates  to  be  XIN  and  YIN.  The  rotation  angle  is  then 
defined  to  be  6  (in  radians). 
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COS ROT  =  C0S(6) 

SINROT  =  SlN(e) 

XROT  =  XIN  x  COSROT  +  YIN  x  SINROT 
YROT  =  -XIN  x  SINROT  +  YIN  x  COSROT 

Application  of  Zernike  polynomials  to  and  SOQ  point  located  at 
(XIN,  YIN)  would  then  be  calculated  using  Z(XROT,  YROT).  The  possi¬ 
bility  of  axis  flips  are  also  accounted  for  and  are  flagged  by 
FLIPX  or  FLIPY  not  equal  to  zero.  Namelist  ZERNS  is  modified  to 
include  FLIPX,  FLIPY  and  the  rotation  angle  (in  degrees)  ZTHETA.  No 
common  was  modified.  This  update  modified  only  subroutines  GDL  and 
ZERN. 
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$rCPn.FC‘UIC=«f5lCSS7  «  SCCf  C128*  JC  =  ABLC,.RA 


f  r  cr 
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* : c r f. t  f  i  *  2  r  n 


•DELETE  2RMKE.11E 

CEL  =  DFL*2 .1A1EE26* 

•DELETE  2PMK.12S 

C  2CX,2?P  FH(U  =  FI*F<N)*2(N>// 


•IDEM  FIX..TR 
•  /  o'ITRFC 

•DELETE  ^ITTEF.2E,clTTEP.3C 

CF  =  1  ./ JFLCM  (NPTS  3  *C  >  > 


•IDENT  RrTZRN 


*/  GCL 

•  DELETE  2PMNFC.2 

NAMELIST  /  2  E  F  N  S  /  F  C  ,  F  «  F  F  P  N  C  ,  S  1  G  F  A  Y  ,  N  T  E  »  M  Z  ,  Z  T  P  E  T  C«  c  L  T  P  X  , c  L  I  f  y 
•INSERT  JRUKE.E 


C 

C 

C 

c 

c 

c 

c 

c 

•D  EL  rT  E 


2  T  P  E  T  A 


FL  IFX 
FL  IF  Y 
2R\INeC.2 


TFE  CLCCKV.ISE  ANGLE  CF  RCTATICN  CF  TFE  CE  C  C  *■  F  C  S  I  T  I  C 
AXES  CNTC  TFE  SCG  CCCRCINATE  SYSTE* 

?  E  F  C  R  E  CALCLLATICN  C.  F  THE  ZEPM*E  PCLYNOPIALS. 

IT  IS  I N  r  L  T  IN  CECPEES. 

1.  RESLLTS  IN  A  FLIP  AECLT  TP E  X  AXIS  ^rFC^D 
RCTATICN. 

1.  RESLLTS  IN  A  FLIP  APCLT  TFE  Y  AXIS  PFFCPE 
RCTATICN. 


CIFEVSICN  C2ZS\/(ZC  «1C> 
•INSERT  2RNINFC.7 
Z  T  F  E  T  A  =  C. 

FLIFX  =  C. 
c  L  T  F  Y  =  C. 


*  INSERT  ZRA INFC.E 

FZ2S V ( I2LRN  ,2  )  =  Z T F E T A  *  2 . 1  A  1 E 5 3 / 1 E 0  . 

PZ2SV flZERN y A )  =  FLIFV 


F22SVM2ERN,')  =  FL1FY 
•DELETE  2RNINFC.lCi2FNINrC  .13 

24<i  CALL  2EFNCF22SV<IZERN.1)»F22SV(T2EPN»2)*FZ2SV(IZERN»?>« 
X  F22S V(  IZDRN.A  )  fF22SV (  IZERN»E ) » 

x  F2SAVE(2E,I7ERN)tFZSAVE(l»IZERN)) 


•/  2ERf 


•DELETE  2PNINFC.12 

SLPRCLT INE  2ERN<SJCMY,XNTFFZ.TPETA,FLJFX,FLIFY»PC»F> 
•INSERT  2  P  N  I  *<  E  .  7  2 

CCSRnT  =  CCS(TFETA) 

SINRCT  =  SIN(TFETA) 

•DELETE  2RKIKE.7E 
•DELETE  ZF NIKE. 77 
X  IN  =  X  < IX  ) 

YIN  =  X  ( I Y  > 

IF<FLIPX.CT..E>  YIN=-YIN 
Ic(FLIpY.CT..E)  XIN=-XIN 
XFCT  =  >IN*CCSPCT  «  YIN*SINRCT 
YRCT  =  -X1N«SINRCT  ♦  YIMCCSPCT 
IF(FLIFX.LT.-.E)  YRCT=-YRCT 
IF(FL!PY.LT. -.5)  XRCT=-XRCT 
XSC  =  X p  C T  « • 2 
YSC  =  YFCT  •  *2 
•CELETE  ZSNIKE.Pf 

TFET  *  ATAN2CYRCT»XPCT) 


f  fir  r 


«  I  C  E  r.  T  PCPSl* 

*  i  \  s  r  r  t  simvry.eie 


**..  CC^Y  TFpr(Ef>  T1'  CITFL7: 
E  C  FILE  EC 


7  0  C  C 
40CE 


<t  0<*  C 


7  C  1 5 


WFIirce  ,2C2S> 

REUINC  EC 

RE  *Z<  E(N*0PE>  IC1*C2 

'CRKTHhiliO 

J  r  (E°F (EC)«NE.C«)  G C  7  C  701E 

IMICl.EC.l)  WR  I7E <6  »2C2E  ) 

WRITE(t»40RC>  C  2 

FCR^AT  Cl  CV,21A<*> 

GC  7 C  7CCC 
REV  INC  EC 
URITG(6«2C2E) 


RELIVE  57 

40CC  PEAC<57tA0CE>  I  C  1  ♦  C  2 

IF(ECr CE7).NE.C.)  CC  7C  AC1E 
IFCICl.EC.l)  UP ITE <f «ZCZE > 

UR  ITT (6 , 4C A C  )  C  2 
GC  7  C  4  C  C  0 
R  C  1  E  R  E  W  I K.  "  5  7 

W  D  I  7  E  ( £  *  2  C  3  E  ) 


6  CC  C 


6  C  1 E 


F  £  W I r  C  5  7 

PEAC<57,ACCE>  I  C  1  »  C  2 
I=(ECF(57).NE.G.)  EC  7C  CC1E 
IF(ICl.EC.I)  UR  I  7  r  <  £  »3C3E> 

U°  ITE <f f ACAC >  C  2 
GC  7  C  £C  CC 
REUINC  57 
UP  1 7f <  6  »  2  3  2  E  ) 


****  CCPY  7*PE(ISLPRY)  7C  ClTFlT! 


RCUKC  ISIPFY 

ECCC  PE*C< 7SLPRY»2CCE)  TCl»C2tC2 
Ic (ECF ( ISUPRY )  .NE  .  C  .  )  GC  7C 
IF(ICl.EG.l)  WRITE (  6  »  2  C  3  E  > 
UPITE<£»3CA0>  C  2  ♦  C  2 
GC  70  ECCC 
EC1E  PEWIMC  ISUPRY 
WRITE Cf«JC2E) 


5015 


****  CCPY  TfFECEC) 


CLTFL7  : 


W  F  17  E  ( t  »  2  C  2  E  ) 

REWI\T  EC 

FCCO  REACC5C»A0CE>  IC1«C2 

IF(EOF(f  O.NE.O.)  CC  TC  EC1E 
IFCICl.EC.l)  WPITE  <€*ZCZE) 
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SECTION  III 
MAIN  EXECUTIVE  CODE 


1.  PROGRAM  SOO 

a.  Purpose  --  Program  SOQ  is  the  main  driver  program  or  executive  code 
for  the  total  SOQ  code.  Many  parameters  such  as  mesh  size,  number  of  points, 
initial  position  of  the  optical  axis,  the  initial  coordinate  array,  and  the 
initial  field  itself  are  established  in  this  routine.  Once  the  above  param¬ 
eters  have  been  initialized,  there  are  several  options  available  for  opera¬ 
tions  on  the  field.  Those  available  are: 

(1)  Calling  subroutine  GDL,  the  executive  program  for 
propagating  the  field  through  the  optical  elements 

(2)  Performing  a  quality  calculation 

(3)  Gradient  search  optimization 

(4)  Parametric  studies. 

The  above  options  can  be  activated  in  any  order  and  as  many  times 
as  desired  by  successive  reads  of  namelist  START.  The  flag  for  ending 
execution  of  the  entire  deck  is  to  set  WWL  =  0  in  the  last  read  of 
START. 


b.  Formalism  --  The  only  major  explicit  calculations  done  in  SOO  are 
those  which  determine  the  initial  field  when  it  is  not  to  be  read  in.  The 
OPTIONS  are: 

(1)  Plane  wave  -  constant  amplitude 

(2)  Plane  wave  -  Gaussian  amplitude 

(3)  Spherical  wave  -  constant  amplitude 
(4j  Spherical  vave  -  Gaussian  amplitude. 

Letting  E(x,y)  represent  the  field,  A(x,y)  the  field  amplitude,  and 
♦  (x,y)  the  field  phase,  then  the  field  is  determined  by: 
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where 


and 


E(x,y)  =  A(x,y) 


The  other  calculations  based  on  input  distributions  are  performed  in 
subroutines . 

c.  Fortran  —  The  only  common  variables  that  are  not  altered  in  this 
routine  are  SPACE  and  CFIL.  The  others  are  altered  and  are  defined  as 
fol lows : 


CU  =  the  complex  field  array 
X  =  the  coordinate  array 
DRX  =  the  x  position  of  the  optical  axis 
DRY  =  the  y  position  of  the  optical  axis 
NPTS  =  the  number  of  points  in  the  x  direction 
NPY  =  the  number  of  points  in  the  y  direction 
=  NPTS  if  SYMTRC  is  false 
=  NPTS/ 2  if  SYMTRC  is  true 
WL  =  the  wavelength  of  the  radiation 
PLTSG  *  plotting  parameter  (none,  amplitude,  or  intensity) 
INT  =  set  to  0 


The  relevant  parameters  are  read  into  the  program  by  means  of  the 
namelists  described  below. 

(1)  Namelist  START  —  This  namelist  is  used  to  initialize  para¬ 
meters  such  as  field,  mesh,  and  coordinates,  and  is  used  to  direct  the  cal¬ 
culation  to  other  sections  of  SOQ.  It  is  read  repeatedly  until  WWL  <  0  is 
encountered. 
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POP  GAUSSIAN! 

PhIPAH  tS  Pp  ASP  PpUnT  p  A.i  I U  3  OF  COPVATUWF  (=0.0  F  OW  "LAn£i 
IlNUM  Ic-  Tpp  IfPPATILN  NUMHgP...IF  t  JnSPP  C  I F  I E  U  IT  PfAHS  OFF  D  I  S* 

5Y«tac  fs  LOGICAL  1  OP  3YPMPTkIC  anayLSYS  Op  nuT 
OSAilSS  is  III  A*ErP.P  at  «h  I  Cp  GAUSSIAN  AMPLITUDE  *  l  .  (1  /  F 


4«s>' 


(2)  Namelist  QLOT  —  This  namelist  establishes  the  parameters  nec¬ 
essary  to  perform  quality  calculations. 


NAMELIST/ JLOf/  TITLE*  iNLTf  OP,  ISAY,  IPpASF*  PpO  «PF 

0 

C  TITLE  POP  plots  in  OUAuirr  bUuTINE 

C  JOLT  IS  "LOT  T  I  Nr.  JASANgTtP  FOP  PL  T  0  T  ,  .  .  .  JUAL  I  T  Y  PLOTS 

c  z  n  I  SO- I'i  IP  NS  I  tt  ANO  pu*E-<  vs  pl/o  30  olO  "LOTS 

C  *  J  pap-FIELl  Pnp  yS  hl/0  >ooL0 . 

C  z  J  NO  c.ool"'  PLOTS  CALLOLaTEs  it^T.  !)  il* 

C  a  3  I  So- 1 N  r-NS  I  T  T  jOULO*  PwH  )iSr,  PijT  uu  Pw-  jLOTS 

a  *  lALC  P^NtP  [  NS  IDF  M  tP  JNLT...NO  CAil  TO  -LToT 
C  OP  s  HP  am  I  Ap£  TFP 

r  ;s av  In  saving  papame rfcp . 

C  art,  |,0N2T  3AVfc'  *1  SAYt  ITJPOT  FIEi  i) 

C  a-l  USE  UtlA  SET  no  POP  [NP'uT 


' 


IPhASP  rONToui.S  T Hp  PhaSE  CuwotLTIONa  aPPlTF''  TO  ThF  FTEL0 
a  11  N.OMP 

=  1  planap  CO^t-'EC  1 1  On 
-  ^  sp**-  pfc  Ila'. 

a  J  H  0  T « 

ph«  fs  .,uc>f'  i  r pjw  op r iha/« r iun. . . if  a  call 

Out  F  -EKOWP  0**  T I  H'j»»  Ih£  HUC*E  f  IS  SPEPlFlEP  «FPt 
PF  l«  PL/!'  P  AO  I  IS  P'JP  .JilALt  fr  CALL"!  A T I On 


Uj 
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(3)  Namelist  THRED  —  THRED  establishes  the  parameters  required 
for  three-dimensional  plotting  routines. 


mamflIst  /  r-iPp^i  /  plot  jo.  !  i tw*  i.t'i  a.a. 

*  s\  rtSi'.  hA,  jr.  'lAfao.  PSc  ICE  «  .NP.  jFa/t,  4.-JA  r. 


PL"  r  i. 


r  I  t,  »  j 

r>i  .m» 


,  T.,t'E«  r  (■  iJ  I  mF’jS  I  o-.AL  PL'J^S  )F  Nr  AP  PIE 

*FAlSF,  r“o«  ’<u  PLOTS 

t!Tlc-  [nFuw'a  f  I  in  >-o„  )  I  •*£  ’>  s  ;•!  «a. 

i> l ah  op  IlloS’patf,;  p I tLu  or,  plot*. 


PL"  Ts 


PLTISO  T  S  L  HjICAL  POP  ISoPLpTS  UP  F  ItLO 

wwl"!  IP  T»s  wAiju'i  uP  l!jCLf  imA.n  on  ;SOJL0r  c'Jt'  pfffpEnCF 
n  t  a  t  so  IS  r,[AMkTFP  uF  IaoploTs  ijESIPfO 
P^LiC*  IS  L-»(jICA‘.  pop  SlICP  plots  OP  p  I P  L I T 

op  a  Thp  RL  I  Cr  IN  V-I'IP.  PLOrrrtl).  IF  a  ,1...  OP  a  n«TS/? 
iPA/r  a  ...  NO  P.-.4SE  Pl.O*  F"P  T-tS 
a  i«  "E  '  *•<?  PrtASt 


>  O  O  C-  vF  W  ■» 


r  i>  O  tf  P  «  O  J  «  <>  »>  v  d  »*  '>  '»  V  *  O  •>  *  <V  w  xHH)  O  'H» 


>v,r 


(4)  Namelist  OPTIM  -  Namelist  0PT2  --  These  two  namelists  are  used 
by  the  optimization  portion  of  the  SOQ  routine.  OPTIM  must  be  read  first  to 
direct  the  optimization  procedure.  0PT2  establishes  which  parameters  are  to 
be  used  in  the  procedure  and  their  constraints. 


namelist/  ,;pt;p  /  ph,  ;piji.  n[no.  nbimt.  pom 
C  PH  a  JJ'C«FT  Si/F  F'JH  W  O  A  L  I  T  f  JH  T  1 H 1  /  A  F  I  ON 

c  IP'IT  a  i  P<-.*FH  WITHIN  PH 

C  a  total  powtp  In  hfam 

C  J  PEAK  I "4 TENS !  T r 

C  NI"n  IS  NUMHFP  of  1 1.0  vAIARLtS  To  HP  OPTIMI/FO 

c  JJfl'MT  a  isToOEsT  OoMHtP  OP  IIEPATIOmS  TO  Hfc  PfcBFOPWO 

c  OHW  T  S  Twp  HP  AH  (IIAMPIEH  POP  JjALITr  CALC...TP  CALLF')  T  J  ^IHL 

C  PAPLIEP  This  IS  NuT  HEtOEU 


NAMfc'LIST/OPT£V  Tfc.ll.  !EL2»  ItuJ*  AMlN.  *«AX.  XAOU 
C  (  [ELI  .  I F  i_  P  •  IfcLJ)  IS  THfc  vECtOH  UESCM  t«  IN<»  ThF  POSITION  OF  ThF 

C  OPTIMI/FO  PAWAM£TtP...IN  OPEPA T 10NAL  SPACE 

c  *-*IN  ANO  XMAX  APE  T nfc  CONSTRAINTS  UN  Th£  QPTI*«A2tr>  vector 

C  XAt)n  TS  A  CONSTANT  AUOfeO  TO  TrtE  UPTIma/EH  VAST  ABLE  SuCh  That 

C  ITs  VAL.'F  IS  NfcVF>  cQUUAL  TO  /EHU 

C  ThFhT  ApF  MNU  NUMHfcW  uF  CALLS  TO  ThIS  NAMfcLlsT 

C 


(5)  Namelist  PARAM  —  This  namelist  gives  the  parameters  to  be 
varied  and  what  values  are  to  be  used. 


iAMfcL  T  *1  r  /  PAPAM  /  NlL  I  •i.tLP.NLLJ*  NPAPA.  XNPaHA. 

X  Nfc..;  »MM.2«MELJ  i  NPAkA.  A'«H»AWA 

C  iKLl.fLP.EL.Ji  IS  The  vtCTjw  ufcSC  Iw ; ij  1M-  Tuf  POSI  TIun  of  THfc. 

L  i/APlAFLt  WHICH  IS  ru  Pt  VAWIfci) 

c  .PAOA.-^PAUA  APfc  THE  m  HBfcP  OF  ChAN(>FS  IN  FACH  VAWIAHLE 

C  XNPAPA ,  XHPAPA  6PF  Int.F  AwpAYs  ThAT  CONTAIN  ThF  VALUES  wh[Ch 

C  APC  TO  tlSFu 

C  ^NL  Y  "T-c  sr  T  IS  ’u  r*t  VAklfcU  L'S.  ONLY  THF  NPAwA  SET, 

C  AN):  Sfc  T  v£i_l  *  0*  Tit-  NtS  APF  Tl>F  I NNF  W  LOOP  A®*®®**®®®®* 

C  t  F  A-.C  AwPAY  JS  fO  HE  CHANGED  A  NO  NO  C  ALi-  •  AT  IhIS  *!«(.  TO 

L  Ai.'T.j  :  (OuL  l  )  .  rHt'N  Sr  T  NPaPAsO  .  .  ,  The  N  TwC,  WAL'ltS  CAN  ML  CHANOCO 

C  tK  '!"l*  ONE  Is  TO  Ht  CnA.»GFo  Sc  I  Nfc  I  1=0 

C  ®®  +  ®®4Ll.  CALLS  jF  T  oFF  \  (jOL  AN!)  PAP  AM  10  Nil  AL  .  Pl  J  T  .  ,  .  «  I LL  «F  -EJEATfcO 
C  [ NS  I  '>F  T»fc  Papa-KThIC  LOOP 

(61  Program  SOQ  (Program  SOQ  Flow  Chart  (Fig.  12)  appears  on  page  40.) 


PROGRAM  SOQ 


76/176  0PT=1  FIN  4.6+452  04/27/79  12.23.47 


PMOOMAM  SOw I  HOTPOT . r APtl , I APt  2. I APt J , f  APt  A, f APEs. 
a  rAPt6»ourPur, i APt /. r APte. i ape9. i APt lo , i APt  1 1  •  i tMtu . i APtl j, 

O  r  APtl  A.  r  APt  13.  r  APt  16.  I  APt  1  /•  TAPtla,  I  APt 19.  TAPt2«. i APt2i . 

CT  APf.EE.  TAPfc^J,  TAPt2*.  TAPt23»  I»PE26.  I  APE2  f  .  T  APE20 »  UPt29» 

0TAPE4U, TAPtJD 
LtYtL  2«CU.CUM»SPACt 
COMMON  /EST/  SPACtllOOUJ 

COMMON/MtL  I /CO  (  16J0A)  ,CE  in  lost  2)  .Alum  .WL.NPTS.NPV.OWX.OMY 
COMMON  /PL  till*/  PLOT  SO 
Common  /initl/  INI 

01 MENS I On  T i ILt 12U) «AS(4> ./OP l A) .ALO»  <a) .AUP l  A) • 

XlOPl J*AI .XSCMIa) , AoC (12.2U.9t.il TLt A l 2U ) .AUPAOOIA) , 

2  AMP  AH  A  (  iU )  *  XNPAWAllU).  MAlNtl2S).  IITLESI20).  CUMI42/60) 
COMPLtX  CU.CE IL.CUHS 

LOo  I C AL  *ES  r  M  T  ,  PLO  I  Jl> .  PL  r  1  SO  .  PSL 1 C t  »  C  ALOL  .  S  Y  M  f  HC 
Coo I VALENCE  (Coil) .Com (ill 

DATA  ®WL.OCAL.NNPTS»OOHA,OOMY/-l . .0. .  J.U.  <U./ 

OAT  A  UCAL.hESIM I • IN, Ib.NCALL.MMPotS, I  I NOM.SYM THC .OOAOSS.PHIWAO 
X  /  0.0,  . 1  POE . .  U.  6,  2.  1.0.  -1.  .FALSE.,  U.O  .  U.U  / 

OaIA  1  I TLES/20®aH  / 

0 A 1  A  lULr.Ub, ISAV.lPHASt.MOH.PF  / u , u . 0 . 0 . J . 1 . 0 .6. 0/ 

OATA  TITLE/20*AM  / 

DATA  MH.lPOl  .NlNU.NdlOIT  ,068  / 2  .  0  «  1 . 0 . 1  .  U  .  0/ 

OAIA  PLO I  40,01 AM, PL  T ISU.MPLO I .0 1 A 1 SO.PSL ICt ,NP , Of A2t . XMAO 

x  /.false. ,<).u,  .false. ,u.u,  u.u,  .false. ,o,  u.i.v/ 

OATA  PLO I S  /  0.  / 

OAIA  f 1 fLEi/20**M  / 
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EXECUTIVE  ROUTINE  STRUCTURE 


MAIN  0.143 


MAIN  0.172 


MAIN  0.226 


MAIN  0.233-*- 


MAIN  0.245 


MAIN  01275  h*. 


Figure  12.  Program  SOQ  flow  chart 


MAIN  0.170 


MAIN  0.224 


MAIN  0.231 


MAIN  0.243 


MAIN  0.273 


MAIN  0.298 


oonnn  no  oooooooooooooooooooooo  oononnnoooo  norr.  rror  nrnrinnnonnnoonr.onn 


C***«*««. ••••••••••••••••••••••••••••••. MAIN 

NAMELIST  /S  T  AMT/  aaL.OCAL.NNPfS.OONA.UDHY.MESTHT.IN.ld.NCALL.  CUMMl 

A  AMPGES.  ITNUM,  SYMTHC  .ObAUSS  <  UTLtS.  PHIHAO  MAIN 

A  .  PLOTS  LMUPt 

plots«-i.»  amplitude  .  phase  slice  plois  chopi 

PCOIS-  3.t  NO  SLICE  OH  ISO-lMTENSlIY  PCUTS  CHOPI 

►LOTS*  1..  INTENSITY.  PHASE  SLICE  PLOTS  LHUPl 

plots*!.,  iniensity.  phase  slice  plots  otuplisi  lhopi 

nCALL  CUnTHULS  the  MOVEMENT  lNSIOE  main  MAIN 

*  2.  GOC  SeCTION.CALLS  bUC  ANO  Mf AO  CUrA  F POM  DISK  MAIN 

*  3  CALL  TO  DUALITY  ALbONY THOM.  MEADS  PLOT  MAIN 

*  A  CALL  TO  ANY  OF  THE  bOULO  PLUII INb  PACKAGES.  MEAOS  tHMfcO  MAIN 

a  S  STAHTS  OPTIMaEATIOh  aLA  OAVIUN.  HE AOS  0PT1M  MAIN 

a  6  PAMAMtTHIC  S TOOIES. . INVOLVES  CHANGING  ABC  AMHAY  F OH  30L .  MAIN 

MEAOS  PAMAM  MAIN 

MAIN 

•L  IS  PAOI A t ION  PAVELENGhT  MAIN 

OCaL  IS  1NTIAL  SUE  Of  CALCULATION  MEblON  MAIN 

NPTS  IS  NOMbEP  OF  FIELU  POlNIS  ACMUSS  OCAL  MAIN 

OMa.OMY  a  THE  (A.Y)  POSITION  OF  ThE  CENTEM  OF  CU  HELATIvE  MAIN 

TO  THE  OPTICAL  AAIS  MAIN 

MESTmT  IS  CONTMOL  FOH  HESTAMTING  at  Th  EXIST InG  GAIN  LO-EFF  ANO  MAIN 

initial  MElu  Fmom  pmevioos  mon... .......  main 

•  TRUE.  IF  MES! ANTING.  uN  IF  F lELO  IS  TO  dE  MEAD  F MOM  Id  MAIN 

.FALSE.  IF  NOT.  OH  if  INITIAL  FIELO  ANO  «cs  AME  to  dE  CALC  MAIN 

In  a  UNIT  NOMGEM  OF  OATA  SE T  F OM  OOL  ANO  CAVITY  MAIN 

IF  IN  a  0.  Then  ThEHE  IS  NO  CALL  TO  GOL  MAIN 

MAIN 

Id  IS  UN l I  NOMbEP  OF  INPUT  FIELO  TO  OOL  MAIN 

IF  IM  a  o.  Then  nOIhINu  IS  MEAO  MAIN 
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33 
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36 
JT 
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39 
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41 
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44 
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ANPGES  IS  INITIAL  AMPLITUDE  OF  STAMtlNG  dEAH (PEAK  AMPLITUDE  MAIN 

FOH  GAUSSIAN1  MAIN 

PhIMAO  IS  IS  PHASE  P  MON  T  MAUIUS  OF  LUWvAIUMt  TaU.O  FUM  PLANE)  MAIN 

IThum  is  The  HtHATION  NUMdEM ...  IF  UNSPtLlFIEO  IT  MEAOS  OFF  DISK  MAIN 

MAIN 

SrHTMC  IS  LOGICAL  FOH  sYHHtTMIC  ANAYLSYS  OH  NOT  MAIN 

ObAOSS  IS  OIAMETEM  AT  aHICH  bAOSSlAN  AMPLITUDE  a  l.u/b  MAIN 


MAIN 
C  MAIN 


MAIN 

MAIN 

NAMElIST/ULOT/  TITLE.  lOLI.  OG.  ISAv.  IPHASE*  Mdd  »HF  MAIN 

MAIN 

TITLE  FOH  PLOTS  IN  UUALITY  HOUTINE  MAIN 

IOLT  IS  PLOTTING  PAHAMETEM  FOH  PL  TO T . . . .UOALl T Y  PLOTS  MAIN 

a  0  ISO-INTENSITY  ANO  POdtM  YS  ML/O  GOOLO  PLOTS  MAIN 

a  1  PAM-FIElO  Pan  VS  ML/O  GOULD, .  MAIN 

a  2  NO  GOOLO  PLOTS  CALCULATES  POMEM  01ST.  ONLY  MAIN 

■  3  ISO-INTENSITY  GOOLO.  PaH  UIST*  GUT  NO  Paw  ML/O  PLOTS  MAIN 

a  A  CALC  PQaCH  INSIDE  Mdd  ONLY. ..NO  CALL  TO  PLTOT  MAIN 

Ob  a  SEAM  UlAMtTEK  MAIN 

IS»V  IS  SAVING  PAHAMETEH. .......  MAIN 

aO.  OUN«T  SAVE  •  !  SAVE  INPUT  FIELO  MAIN 

•— l  USE  OATA  SET  »9  FOH  INPUT  MAIN 

IPHASE  CUNTHOLS  The  phase  LONMEC T IONS  APPLIED  TO  the  FIELD  MAIN 

»  <»  NONt  MAIN 

a  I  PLAN AH  CONNECTION  MAIN 

a  2  SPHEHtlCAL  MAIN 

a  3  BOTH  MAIN 

M««  IS  THE  SOCKET  SUE  FOH  OP T IMA2AT ION. .. IF  A  CALL  TO  GOAL  IS  MAIN 
OONt  8EF0HE  OPTIMUM  The  SOCKET  IS  SPECIFIED  HENt  MAIN 

HF  IS  HL/0  HAOlUS  FOH  DUALITY  CALCULAIION  MAIN 

MAIN 


NAMELIST/  OPUM  /  Mb.  IPUT .  NINO*  NdlblT.  Odd 
MB  a  dUCKET  SUE  FOH  GOAL  1  T  Y  OPTIMISATION 
I POT  ■  1  POatB  al THIN  Mb 

2  TOTAL  POtttM  IN  SEAM 

3  PEAK  INTENSITY 

NINO  IS  NUMdEM  OF  l NO  VAl AGLES  TO  dE  OPTlMUEO 
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Nttisn  •  most st  NOHBtH  u^  i  rtHA  r  ions  ro  »e  pemfohmeu 
Odd  is  me  st am  uUMertx  run  uo*lity  calc*. .if  calleu  ru  goal 
t aml i em  mid  is  not  Nteoto 

NAMeLlS  F /OP  72^  I ELI.  ltL2»  ltLJ*  AMIN.  AN AA .  AAUO 

(IELl.lEL2.ltL3)  IS  r «t  *ECTOM  UESCHIbINU  rMfe  POSITION  OF  Trie 
OPUHUtO  PAHAMEIEP...IN  JMeMAflUNAL  SPACE 
AMIN  ANO  AMAA  AHE  THt  CONS  TWA IN T d ' ON  TME  OPTIMAEEO  VECTOM 
AAUO  IS  A  CONSTANT  AOOEu  TO  THt  OPT IMA2EO  V AM  1  ABLE  SUCH  TmaT 
US  VALUb  IS  NEVEM  tUGuAL  TO  AEMO 
TntKt  AMt  NINO  NOMdEM  OF  CALLS  TO  THIS  NAMELIST 


c 


NAMELIST  /  MAHAN  /  MtLi.ntL2.NtLJ.  nMaMA.  ANMAMA. 

A  MtLI.MELb.MELO.  MM AHA.  XMMAMA 

(ELl.tL2.ELJ)  IS  THE  VtCTOM  OtSClMlbiNG  THE  POSITION  or  THE 
V  AM  l  AIM.  E  «NICH  IS  TO  SE  V  AM  ltd 
npama.npama  AMt  the  NUMdbM  or  changes  in  each  v amiable 
ANMAMA. AMP AM A  AMt  THEE  AMMATS  IMAI  CONTAIN  THE  VALUES  aHlCH 
AME  TO  bt  OStU 

••••••••IF  ONLT  ONE  SET  IS  To  st  VAMltO  USE  ONLV  Tht  nPAMA  StT. 

ANO  SET  MEti  «  il.  fnt  nCS  AMt  frit  iNNtM  LOOP  •••••••♦•••• 

IF  AbC  AMMAY  is  TO  bE  CHaNOtO  ANO  NO  Call.  AT  THIS  1 1ME  10 
AoroUOOLI).  TmEn  SET  NMAMAaO. • . I MtN  T»0  VALUES  CAN  bt  CHANGtU 
ir  only  ONt  is  ru  be  change  sti  MtLi«o 

•••••ALL  CALLS  dtl«ttN  UOL  ANO  HAMAM  TO  OOAL »MLO T • . ,0 ILL  St  MbMtAieO 
INSIUE  the  PAMAMttHIC  LOOM 

’•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••C 


NAMELIST  /  TriHEu  /  PLurjU.UTLEj.UIAM. 

A  pltiso.  mplut.  uiaisu.  pslice.  NP.  JFa2E.  AMAG 


PLOT JO  a  . TMOE.  FOM  THMtE  U I MENS I ON AL  PLOTS  OF  NEAM  FIELD 
a  .false,  fom  nu  plots 

T I TLE J  a  TITLE  INFORMATION  FO M  TMMEE  UIMCnSIONAL  PLOTS 
01 AM  a  01 AM  OF  iLLUSTMAltU  F lELu  ON  PLOTS 

PLUSO  Is  LOGICAL  FOM  iSUPLOIS  OF  FibLO 

MPLOT  IS  Tnt  MAU l US  OF  CIMCLE  UMAMN  ON  ISOPLOT  FOM  MtFtMENCE 
U I A 1 SO  IS  OlAMtTtM  OF  ISUPLUTS  UES1MEU 
PSLICE  IS  LOGICAL  FOM  SLICE  PLOTS  OF  F 1ELU 

NP  a  THE  SLICE  IN  Y-OIM.  PLOTTTtO*  IF  a  0...  nP  a  NPTS/2 
JFA2E  ■  0.  NO  PHASE  PLOT  FOM  THIS 
a  1.  GET  Tut  PMASt 


. . •*•••••••••••••••  ••••••••••••••C 

CALL  LlSfaO(S) 

INTau 
ICNVMGaO 
»L»-l. 

OMA  a  0, 

OHV  a  0. 

Pla3.l4IS92 
00  14  Ilai.A 
14  XSCM ( I I ) *1 • 

1MMK  a  1 
MAINE ( 1 i  «  I 
iNOLUaS 
MF  a  S. 

999  MtAOTS. ST  AMT) 

»L  a  m«L 
NP  TS«NNPT  S 
UMA»OUPA 
OMY«OOMY 

pluTsg  a  plots 

mEaO  IS.12»3j  TITLES 
U*J  FOMMAT  (20A4) 


MAiN 

VI 

MAIN 

92 

MAIN 

93 

MAIN 

9a 

MAIN 

95 

MAIN 

96 

MAIN 

97 

MAIN 

96 

MAIN 

99 

MAIN 

IU0 

MAIN 

101 

MAIN 

102 

MAIN 

10J 

MAIN 

104 

MAiN 

I  OS 

MAIN 

106 

MAiN 

107 

MAIN 

106 

MAiN 

109 

MAiN 

110 

MAiN 

ill 

MAiN 

112 

MAIN 

UJ 

MAiN 

114 

MAIN 

ns 

MAiN 

116 

MAiN 

117 

MAIN 

US 

MAiN 

119 

MAIN 

120 

MAiN 

121 

MAiN 

122 

MAiN 

12J 

MAiN 

124 

MAIN 

12b 

MAIN 

126 

MAiN 

127 

MAIN 

126 

MAIN 

129 

MAIN 

1J0 

MAiN 

Ul 

MAiN 

1J2 

MAiN 

1J3 

MAiN 

1J4 

MAiN 

US 

MAiN 

136 

MAIN 

1J7 

MAiN 

136 

MAIN 

139 

MAIN 

1*0 

MAiN 

141 

CUHR1 

4 

MAiN 

143 

MAiN 

144 

MAiN 

145 

MAIN 

146 

MAiN 

147 

MAiN 

146 

MAiN 

149 

MAIN 

ISO 

MAiN 

1S1 

MAiN 

1S2 

MAIN 

1S3 

MAiN 

154 

MAIN 

1SS 

CUHM1 

5 

CURffl 

6 

CUMWl 

7 

CUMtfl 

6 

LMOMi 

6 

MAIN 

1S6 

MAiN 

1S7 

42 


on  on 


IF  (ML  .Li.  U.i  00  ro  MM? 0 

MA|N 

ISd 

■HirE(6.150>  TIIlES 

MAIN 

ISO 

ISO  Fount!  (  1*1  .30  (  JHSOU)  /  IX  •  irlv.OOX.  INO/  »  X.  IH0.*A.2UA*.*A.  1  HU/ 

MAIN 

160 

X  lx.lrtO.6HX. tM0/lA.3U(jMS0w)///) 

MAIN 

161 

nh»  ■  'MM f s 

MAIN 

162 

It-  (SYMTHC)  NHY  «  HHY/2 

MAIN 

16J 

(MOM  ■  NFTS  •  MI»Y 

MAIN 

16* 

XOKY  «  0 

MAIN 

16S 

AdCU.2.1)  ■  OMX 

MAIN 

166 

A6C12.2.1)  >  OHY 

MAIN 

167 

IMMK  ■  [MHK  *  1 

MAIN 

166 

MAINtUMM*)  »  'ML ALL 

MAIN 

169 

l»0  TO  (999. 100.20U. 300.4UU.300) .NCALL 

MAIN 

170 

MAIN 

171 

TNANSFEH  CONIHOL  TO  OOL 

MAIN 

1?2 

1U0  If  1  HESIHT  .OH.  Id. feU. U  )  OU  TO  3 

MAIN 

1  7J 

QAaOCAL/NHIS 

main 

174 

X(l) a-OCAL/ 2 . »0X/ 2 . 

main 

17S 

00  2  lai.NFTS 

main 

176 

2  X(I)SAU-I)  «0X 

MAIN 

177 

00  9  lal.NOd 

MAIN 

1  76 

9  CU(  I  1  «  CMHL  X ( AHHOfcS . 0 • ) 

MAIN 

179 

IF  (PHlHAO.fcU.O.HH)  ro  fl 

main 

160 

HUFACTa-Ml/ (*L*HHirtAU> 

main 

161 

00  72  jal.NFY 

MAIN 

162 

JIa(J-I)»NPfb 

MAIN 

163 

ysu  *  X  ( j) **2 

main 

164 

00  7 2  lal.NHTS 

MAIN 

16S 

*KK«Jl«l 

MAIN 

166 

KKKZa  2  •  AKA 

main 

167 

AKK2HI  a  aAK2  «  1 

main 

166 

Piil  a  HOF  AC  T  •  )  X  ( I )  *42«  YSU  1 

MAIN 

109 

SINt*  a  SIN(Hrtl) 

MAIN 

190 

COSH  a  COS(Fnl) 

MAIN 

191 

CUHS  a  CuM <Kaa2n1 i 

main 

192 

CUH  ( KKK2M i  )  a  CVjHS»COS*»  -  LUH  (AKA2)  *31nH 

MAIN 

193 

72  C0H(KKK2>  a  CUHS*51NP  •  CUM ( AKK2) *LUSP 

MAIN 

194 

71  IP (DttAUSS.feU.O.)  00  TO  SO 

main 

195 

S I OH AaOG AUSS»«  2/ M . 0 

MAIN 

196 

OO  51  JbI.nFY 

MAIN 

197 

NMUaatJ-l)*NMrS 

MAIN 

198 

rso  a  x(JI**2 

MAIN 

199 

00  51  lai.HMfS 

MAIN 

200 

NCN  r  aNHOH • l 

MAIN 

201 

CU(NCNT) «CU(NCN( >*EAP(-(XU)*»2.T30)/3l(»MA> 

MAIN 

202 

SI  CONTINUE 

MAIN 

2U3 

MM I  t  E  10.32) OoAUSS • AHMOE  S 

MAIN 

204 

S2  FOMMAUdSHO  OAUSSIAIM  AMFLI  fOOE  0 1 S  1  H  IdU T  ION  MAS 

SEEN 

FOMMtO  Ml TM 

MAIN 

206 

X  A  1/E  AMHUtUUt  A)  OlAMfettHa.F IU.2/16M  HfeAK  A  NHL 1 1 UOE* .012.5/) 

MAIN 

206 

SO  CONTINUE 

MAIN 

20  7 

Nit  a  U 

MAIN 

208 

(.0  ro  m 

MAIN 

209 

3  IF  Ild.EO.U)  00  to  M 

MAIN 

210 

MfeAOtlii)  (CO(l)  .lal.NOd)  . X . UM  1  . OH 2 .Nil 

MAIN 

211 

HfeMlNO  10 

MAIN 

212 

M  IF  (IN  .to.  U)  00  ru  999 

MAIN 

213 

Ip  UN.EU.lNOLO.UM.IN.tU.S.I  viO  10  S 

MAIN 

214 

mM l Tt  (0.6)  IN 

MAIN 

21S 

0  FOHMAI  ( 27m 1  (Hfe  INHUT  UAiA  ON  Sfe T  •  .I2.21M  F OH 

THIS 

CALL  TO  OOL 

MAIN 

216 

A/) 

MAIN 

217 

CALL  LlSIEHUN) 

MAIN 

218 

I NOL Oa  In 

MAIN 

219 

S  IF  UtNOM  .(it.  01  NIT  a  1 1 NUN 

MAIN 

220 

CALL  OOLUN.HESTHT.AdC.Nir.ld.Ut 

MAIN 

221 

NOLO  •  Inha 

MAIN 

222 

CALUL  ■  .FALSE. 

MAIN 

223 

00  TO  999 

MAIN 

224 

MAIN 

225 

thansflh  conthul  ro  ooal 

MAIN 

226 

2U0  hCAO(S.UlOI t 

MAIN 

22  7 

HE  AO  (5.12*3)  UTLb 

MAIN 

228 

CAL3L  *  .TMUt. 

MAIN 

229 

43  . 


o  o 


210 

CALL  OUAL  <  IRHAStt ISAV ,1ULI • 1 l iLt *RM3* AS*OB*RF ) 

MAIN 

230 

00  70  99/ 

MAIN 

23 1 

c 

MAIN 

232 

c 

tra wife*  conirol  ro  plotting  routines 

MAIN 

233 

300 

RCaU  <b»  fHRED) 

MAIN 

23* 

IF  ( AMAG,tO« 1  •  )  00  TO  JlU 

MAIN 

23d 

00  377  IM(i«l.NRTO 

MAIN 

236 

J/7 

A(IMG)*Al IMG)»AMAG 

MAIN 

237 

00  370  IMOaltMOO 

MAIN 

233 

3/a 

CO  1 1 MO) aCO  < I MO) / AMAO 

MAIN 

239 

no 

IF  (PLOTjO)  CALL  NEAR  <01 AM, T 1 1 LbJ) 

MAIN 

2*0 

IF  <pltiso>  call  isusirirLbJtRRLur.oiAisoi 

MAIN 

2*1 

IF  (PSLICt)  CALL  RMErYP<NR, U lLt3«JFA2E> 

MAIN 

2*2 

GO  ro  <70/ 

MAIN 

2*3 

c 

♦  4 

MAIN 

2** 

c 

PERFORM  GRAOIENT  SEARCH  OPTIMISATION 

MAIN 

2*d 

%oo 

00  3  1 1 »  l  ,  N I  NO 

MAIN 

2*6 

READ  (5.0RT2) 

MAIN 

2*7 

I OF ( 1 « l I )  a  1EL1 

MAIN 

2*3 

I  OR  12  *  1 1 )  a  1EL2 

MAIN 

2*9 

I  OR (3*1 1 )  a  1EL3 

MAIN 

2d0 

ALOalll)  a  AMIN 

MAIN 

2SI 

AOR (II)  «  AMAX 

MAIN 

2d2 

A0RAUU1II)  a  XAUO 

MAIN 

2S3 

3 

AOR  111)  a  ArtCtloRl  1 « 11)  ,  IUR(2. 11)  «  IURl3.il)  )  •AORAOOUI) 

MAIN 

2d* 

*10 

if  t.Nor.CALUL)  Call  uuAL(u.u,*,rirLE*RB«As*0BH> 

MAIN 

2d5 

3  2 

UOU  «  1./  ASUPOT) 

MAIN 

2d6 

CALL  CNSTMN  t  AOR  , ALOa  *  AOR  ,N  1  NO  ,  000  ♦  WUOO ) 

MAIN 

2d  7 

CALL  0A91UN  lUOUO.AOP,NiNO«ltNVRG»NdlGlT.. 1)02,0. ,ASCR> 

MAIN 

2d8 

00  ro  (919,918) . ICN9RG 

MAIN 

2d9 

00  13  llal.NINO 

MAIN 

260 

13 

ABCUUPU.U)  ,IUP<2,11>  ,10R(J»U)  1  ■  AOR  Hi  )  -AORAOOUI) 

MAIN 

261 

c 

CALL  AUTO (ABC ,13) 

MAIN 

262 

CALL  GOLUN.RESTHT.AdC.NlT.ld.l) 

MAIN 

263 

IF  (MOLJ.tu.lMHK-1)  GO  ro  *10 

MAIN 

26* 

NOur  a  .AOLO 

MAIN 

26d 

GO  ro  997 

MAIN 

266 

919 

WRITE  (3,231  (abC<  lOPU.la)  ,lUP(2,Ia)  ,10R(3.ld>  )  ,laai,NINU>  ,  AS 

MAIN 

26  7 

<3 

FORM A 7  <32nl  OR T 1HA2  A 1 ioN  HOUfiNt  MAS  CHOSEN  7hE 

FOLLOaING  RAMA 

MAIN 

263 

XM£TERS,««anO  This  MAXIMUM  /dF  1 2.S//) 

MAIN 

269 

GO  ru  999 

MAIN 

270 

ARITE  (6,2*) 

MAIN 

271 

Forma (  Is2m1  uPTIMum  ROUTINE  MAS  EALttOEO  MAA  a  OF 

1 1  era i ions  > 

MAIN 

272 

GO  TO  999 

MAIN 

2/3 

c 

♦ 

MAIN 

27* 

c 

PERFORM  PARAMETRIC  STOOT 

MAIN 

2/d 

SoO 

REaO(3,RARAM) 

MAIN 

2  76 

JJL  *  0 

MAIN 

277 

IF  (NRARA.NE,0)  GO  ro  SiU 

MAIN 

273 

IMHK  a  (MRU  -  1 

MAIN 

279 

ARC  (NEL  1  «NEL2  *NEL3)  «  ANRAmA(I) 

MAIN 

230 

IF  IMRARA.EO,!))  ABC  1  MEL  1  , MEL2 ,m£L3  >  a  AMRARA(l) 

MAIN 

2d  I 

GO  To  999 

MAIN 

232 

no 

002  •  0 

MAIN 

233 

IF  <MfcLl,£0,0>  MRARA  a  1 

MAIN 

23* 

JJ1  a  JO l  *  1 

MAIN 

2dd 

IF  (JJ1.0T.MRAMA)  uO  (0  999 

MAIN 

236 

IF  (MfcLl  ,NE,  0) 

MAIN 

237 

A  ABC (MfcLl ,MEL2,MtLJ)  a  AMRARA(JJl) 

MAIN 

2BH 

no 

•  1 

MAIN 

239 

IF  ( JJ2  «GT «  NRARA)  go  ro  S1U 

MAIN 

290 

ABC1mEL1*NEL2*NELJ)  a  anpa„A(jj2> 

MAIN 

291 

call  00L (IN.RESTRT, AdC ,N 1 T  « id. 1 ) 

MAIN 

292 

c 

CALL  AorO(AdCUd) 

MAIN 

293 

noay  *  muuj 

MAIN 

29* 

GO  ro  997 

MAIN 

29b 

997 

NUKY  ■  WHY ,  •  i 

MAIN 

296 

NNN  a  MAINE (NOKT! 

MAIN 

297 

GO  TO  (999, 190.210. 310, *19. d2U> ,  NNN 

MAIN 

298 

9a  76 

SToR 

MAIN 

299 

ENO 

MAIN 

300 

44 


SUBROUTINE  LIST80 


Calls:  N/A 
Called  by:  MAIN 

Subroutine  LIST80  is  called  by  the  executive  routine  MAIN  to  list  data 
input  to  the  SOQ  code.  The  LIST80  flow  chart  fFig.  13)  appears  on  page  45. 

After  control  is  passed  to  LIST80,  header  information  is  printed. 

The  input  unit  is  read  and  a  counter,  KARD,  is  incremented  for  each 
record  read.  The  input  data  is  reformatted  and  printed  on  the  line 
printer.  When  an  end-of-file  is  received  from  the  input  unit,  it  is 
backspaced  K  records  and  control  is  returned  to  MAIN. 

Arguments 

K  Unit  number  on  which  input  is  read  (usually  5). 

Relevant  Variables 

C  Card  inputs  read  and  printed  as  read. 
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3. 


SUBROUTINE  AEROW 


Subroutine  AEROW  is  used  to  apply  a  random  phase  variation  to  the 
complex  field.  Figure  14  shows  the  subroutine  AEROW  flow  chart. 

AERO  is  entered  with  the  complex  field  array  real  coefficients,  CUR, 
and  with  the  number  of  points  in  x  and  y. 

SIGMAM  is  a  constant  established  by  previous  aerowindow  work.  It  is 
later  multiplied  by  the  random  number  returned  from  the  RANDU  call  to 
give  the  proper  random  phase  range  for  an  aerowindow. 

Inside  the  DO  LOOP,  the  random  phase  is  obtained  and  the  sine  and 
cosine  of  the  negative  of  this  phase  is  taken.  A  negative  number  is  re¬ 
quired  to  yield  a  diverging  phase  impact. 

The  complex  field,  CU,  is  represented  by  a  complex  number,  a  +  ib, 
whereas  the  CUR  variables  represent  the  real  coefficients  alone. 

!  CUR (I)  =  a 

a  +  ib 

CUR( 2)  =  b 

The  random  phase  is  applied  by: 


(a  +  ib)  (cos  d  +  isinq) 

a  cos  $  -  b  sin  <f>  -  CUR  (1) 

b  cos  $  *  a  sin  <p  -*■  CUR  (2) 

Argument  List 

CUR  Complex  field  array 

NPTS  Number  of  x  points 

NPY  Number  of  y  points 


Figure  14.  Subroutine  AERPW  flow  chart. 


Relevant  Variables 


CURS  Odd  number  members  of  field  CUR 

P  Phase  change 

SIGMAM  Aerodynamic  window  constant  =  0.  3>p" 
YFL  Random  number  generated  by  ''RANDU" 
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4 .  SUBROUTINE  RANDU 

Subroutine  called  by  AEROW  returns  rectangularly  distributed  random 
numbers  in  the  range  0  to  1  in  the  variable  YFL.  Figure  15  shows  the 
RANDU  flow  chart. 
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5. 


SUBROUTINE  APRTR 


Called  by:  MIRROR,  GDL 
Calls:  N/A 

a.  Purpose  —  Subroutine  APRTR  applies  an  aperture,  either  circular  or 
rectangular  (Fig.  16),  with  or  without  a  central  obscuration,  to  the  Comdex 
field.  It  also  determines  the  value  and  position  of  maximum  intensity  on  the 
aperture  plate.  Figure  17  shows  the  APRTR  flow  chart. 


Figure  16.  Subroutine  APRTR  nomenclature. 


•  •  •  • 


APRTR  is  entered  with  the  inner  and  outer  obscuration  dimensions 
along  with  the  coordinates  of  the  aperture. 

A  test  is  made  to  see  if  the  aperture  is  rectangular  or  circular. 
The  appropriate  boundary  parameters  are  computed.  Each  point  in  the 
complex  field  is  checked  to  see  if  it  will  pass  through  the  clear  aper¬ 
ture.  If  so,  it  is  left  alone.  If  not,  it  is  zeroed  out  after  it  has 
been  checked  to  determine  if  it  is  the  location  of  maximum  intensity  on 
the  aperture  plate. 
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Figure  17.  Subroutine  APRTR  flow  chart. 
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The  transmission  function  is 


|RDISK<  \Z(x-xpos)“  +  (y-ypos) <RA?RTR 

tC*.  Y)  s)  (15) 

(0  otherwise 


b.  Relevant  formalism 


RPP  *  ( 

ui.%)  * 

(l  y  1  *%)' 

(16) 

RMM  =  | 

* 

(17) 

RMP  = 

(,  x  ,  -  %)'  *1 

(18) 

RPM  = 

('*'*  f)2  *  (' 

XI-  ? } 

(19) 

These  four  locations  represent  an  area  surrounding  the  particular 
point  of  interest  as  shown  in  Figure  16.  For  each  of  these  sets  of 
points  the  locations  of  the  aperture  and  obscuration  are  checked.  If  all 
the  four  points  impinge  on  an  aperture  or  central  obscuration,  then  the 
intensity  at  that  location  is  computed  and  checked  for  maximum  value, 
then  the  field  is  zeroed  out  (by  the  impingement) . 


Int  =  (ReCu)2  +  (ImCu)2 


(20) 


If  all  four  points  lie  within  the  clear  aperture,  the  field  is 
unchanged. 

PER  =  1  (24) 

CTJ  =  CU  x  PER 

(25) 

If  the  four  points  encompass  an  aperture  edge,  then  the  intensity 


is  prorated  on  a  percentage  basis  and  transmitted. 

PER  =  (RAD-RMIN)  /  RMAX-RMIN)  (26) 

CU  *  CU  x  PER  (27) 

where 

RMAX  =  MAX  of  (RPP,  RMM,  RMP ,  RPM)  (23) 

RMIN  =  MIN'  of  (RPP,  RMM,  RMP,  RPM)  (29) 

R.AD  =  Radius  (or  x  or  y  dimension)  at  aperture  edge  (10) 


Argument  List 


RAPRTR  Radius  of  circular  aperture  (cm)  or  x-dimension  (half  width) 
of  rectangular  aperture  (cm) 

RDISK  Radius  of  central  obscuration  of  a  circular  aperture  (cm);  or 
x-dimension  (half  width)  of  a  rectangular  central  obscuration 

XPOS  x  location  of  aperture  center  with  respect  to  optic  center- 
line  (cm) 

YPOS  y  location  of  aperture  center  with  respect  to  optic  center- 
line  (cm) 

YAPRTR  y  dimension  (half  height)  of  rectangular  aperture  (cm) 

YDISK  y  dimension  (half  height)  of  a  rectangular  central  obscura¬ 

tion  (cm) . 
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Relevant  Variables 


A 

AINT 

AINTMX 

8 

DX 

DY 

RAD 

X 


Half  width  of  rectangular  aperture  (cm) 
Intensity  (W/cm4-) 

t 

Maximum  intensity  (W/cm") 


Half  height  of  rectangular  aperture  (cm) 
x  distance  between  points  in  the  mesh  (cm) 
y  distance  between  points  in  the  mesh  (cm) 

»  RAPRTR,  aperture  radius  (cm) 
x  location  adjusted  for  centerline  difference  and 
accumulated  dx  (cm) 

XAR  (N)  x  or  y  position  of  N  (cm) 

Y  y  location  adjusted  for  centerline  difference  and 

accumulated  dy  (cm) . 

Commons  Modified 

/MELT/ 

Array  modified  CU(I)  3  APRFIX. 56,93. 
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6 .  SUBROUTINE  BLUMIT 


a.  Purpose  --  In  the  interstage  duct,  phase  perturbation  can  be 
induced  in  the  beam  due  to  transient  thermal  blooming.  This  effect  is 
suppressed  by  a  sonic  purge  flow  using  the  transverse  thermal  blooming 
routine.  The  BLUMIT  routine  models  this  residual  sonic  purge  flow  thermal 
blooming  in  the  interstage  duct.  Figure  18  shows  the  subroutine  BLUMIT 


organization. 


BLUMIT.  13  - —  BLUMIT.  22 


BLUMIT  24  — »  BLUMIT  28 


BLUMIT  29 - »  BLUMIT  39 


Figure  18.  Subroutine  BLUMIT  organization. 


b.  Formalism  --  As  the  beam  propagates  through  the  sonic  purge  flow, 
it  is  continuously  distorted  by  that  flow.  Under  the  assumption  that  this 
distortion  has  a  perturbative  effect  on  the  beam,  the  integrated  effect  of 
any  thermal  blooming  can  be  approximated  by  a  finite  number  of  discrete 
steps  in  the  following  manner: 

Assume  each  step  is  of  length  DL.  The  distortion  is  applied  by 
propagating  a  length  DL/2  to  the  center  of  the  cell,  then  applying  the 
thermal  blooming  transmission  function.  The  beam  is  then  propagated 
through  the  remaining  DL/2  to  the  edge  of  the  cell.  The  nonlinear 
blooming  transmission  function  t(x,y,AL, I(x,y) )  is 


t 


-ctAL/2  iAO 
3  e  c 


(31) 


where,  a  is  the  absorptivity  of  the  medium.  AO  is  written 


A<t>  =  r'a?  f  l  dz'  5T  C32) 

Jo 

This  can  be  rewritten  using  the  equation  of  state  for  an  ideal  gas 

(P  =  RTo/M).  and  the  Gladstone-Dale  relationship.  Assuming  constant  pressure, 

the  expression  of  AO  becomes 


-H-t)/ 


AL 


ds*  5T  (x.y.z') 


(33) 


where  5T  represents  the  temperature  variation  in  the  flow  due  to  heating  by 
the  beam.  For  transverse  blooming,  5T  can  be  written 


I  (x'.y.z) 


(54) 


In  the  above  expression,  the  flow  is  assumed  to  be  from  the  negative  X  direc¬ 
tion  with  speed  v^. 
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This  effect  is  activated  in  subroutine  CAVITY  by  setting  NGTYPE«2.  The 
duct  is  then  treated  as  if  it  were  another  cavity,  the  gain/phase  transmis¬ 
sion  function  being  that  of  transverse  thermal  blooming.  It  is  updated  by 
subroutine  REGAIN. 

Since  the  only  mathematical  difference  between  transverse  and  free  con¬ 
vective  is  in  the  velocity,  this  routine  can  also  handle  free  convection 
blooming  with 


/  2aP(z)g  \  1/3 
Vfc  pCpT  ) 


C351 


c.  Fortran 


Argument  list 


P  =  Intensity  array.  It  returns  as  the  phase  change  in  wavelengths  due 
to  blooming. 

G  =»  Gain  array.  Intensity  loss  due  to  blooming. 

NCV  =  Cavity  number 

Wl  =  Wavelength 

Commons  modified  -  None 
Subroutines  called  -  None 

The  subroutine  8LUMIT  computer  printout  follows. 
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SUBROUTINE  CAVITY 


a.  Purpose  --  The  CAVITY  routine  models  the  interaction  of  a  GDL 
cavity  and  the  complex  optical  field.  As  the  simulated  field  is  propagated 
through  the  cavity,  it  interacts  with  the  flowing  medium.  As  a  result,  both 
the  intensity  and  phase  of  the  beam  are  modified  through  the  CAVITY  routine. 
Figure  19  shows  the  subroutine  CAVITY  organization. 

b.  Formalism  —  As  the  beam  is  propagated  through  the  cavity,  its 
intensity  and  phase  are  continuously  updated.  The  beam's  amplitude  and  phase 
are  amplified  and  redirected  by  the  medium- induced  gain  and  phase  change. 

This  medium-beam  interaction  results  in  an  integrated  effect.  It  is  assumed 
in  CAVITY  that  the  total  effect  can  be  approximated  by  a  finite  sum  of  N 
terms  in  the  following  manner:  The  total  cavity  length  Z  is  divided  into  N 
steps,  each  Z/N  =»  AL  in  length.  In  each  segment,  the  interaction  of  the 
field  with  the  medium  is  approximated  by  vacuum  propagation  through  half  of 
the  segment,  (AL/2) ,  followed  by  the  application  of  a  field  dependent  trans¬ 
mission  function  of  the  form 
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Figure  19.  Subroutine  CAVITY  organization. 
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The  gain  coefficient  g  and  refractive  index  An  are  calculated  in  other  sub¬ 
routines  using  an  appropriate  choice  of  kinetic  modeling.  The  beam  is  then 
vacuum  propagated  through  the  remaining  AL/2.  This  procedure  is  repeated 
until  the  beam  reaches  the  end  of  the  cavity. 

c.  Fortran 
Argument  List 

NCAV  ■  Cavity  identity  number  (1,  2,  3,  ...  N) 

ILR  =  identifies  the  direction  of  propagation  through  the  cavity: 

-1  =>  right  to  left 
+1  =>  left  to  right 

N'EWCAV  =  A  parameter  that  identifies  whether  the  cavity  has  been  entered 
before. 

INIT  =  .True,  if  it  is  the  first  interaction  of  a  given  run 

=  .False,  if  it  is  the  second  or  subsequent  interaction. 

MSTE  =  Controlling  parameter  for  subroutine  STEP.  If  the  geometric 
beam  is  converging  or  diverging,  variable  area  mesh  propaga¬ 
tion  (VAMP)  should  be  used. 

NSTE  =  1  Constant  mesh  with  setup 

=  2  VAMP  with  setup  (exit  at  end) 

=  3  VAMP  (setup  and  remain  in  VAMP) 

=  4  V.AMP  (uses  existing  setup  and  exits) 

=  5  VAMP  (uses  existing  setup  and  does  not  exit) 

IN  a  input  data  set  number  or  file  from  which  data  is  to  be  read 

RESTRT  =  .True,  if  initial  beam  is  read  in  from  unit  IB 

a  .False,  if  analytical  initial  field  is  desired 
NPLT  »  Controls  plotting  within  cavity: 

»  0  No  plot 

=  1  Print  field  before  and  after  gain  and  gain  coefficient 
ZLI  =  Incoming  propagation  distance  to  cavity  endwall 
(Additional  vacuum  propagation  distance) 

ZLO  =  Exit  propagation  distance  to  cavity  endwall 
(Additional  vacuum  propagation  distance) 

Note:  None  of  the  parameters  in  the  argument  list  is  redefined  by 
subroutine  CAVITY. 
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Common  variables  altered: 


US  -  the  intensity  array 
PPD  -  interpolated  power  density 
CDUM  -  interpolated  gain/phase  transmission  element 
XCAV  -  cavity  coordinate  array 
GFACT  -  define  by  namelist  CAVTY2 
CFIL  -  redefined  by  its  equivalence  with  Power  Density  array 

CU  -  the  complex  field  -  modified  by  propagation  and  the  application 
of  the  cavity  transmission  function 

CG  -  defined  for  the  first  pass,  read  in  for  subsequent  passes  (Cavity 
gain/phase  (G/P)  array  at  each  station  within  the  cavity) 

Name list /CAVTY  2 

CAVTY2  is  used  to  initialize  the  cavity  physical  properties.  The  name- 
list  is  as  follows: 

■NAMELIST/  C  A'/TYP  /XL&N.  YLE  N.ZLtN*  XMCmV  •  TMCA  V  .  NOP  X  .  V  ,  NO  5£G  • 
x  Flag,  -(Of-  s  T  ,  NuTYRf.  NoRLOf.  lust.  IPUPNtTl  «T2«  Tj.  Tn,'»  T%,p<5,  v  , 
<  x*i2  .  <  c  f )  ci .  x«20, xLO, xo2  .  T  I  TLt  *  AlF  a  .  ACR  .  Vfc’L  T  *  •  T  tf  ,  anul  . 

A  AVGAtN. 

L 

L  <LEn  IS  LENGTH  OF  cavity  ],n  FLUW  DI-VtCTION 

C  YLrIN  TS  length  if  cavity  ACROSS  NOZZLES 

C  'LtN  TS  LENGTH  OF  C  4  V  I  T  f  l  s\.  OPTICAL  oIPFCTTON 

C  <MCA  V  IS  ThF  .<  -O I S  T  OF  OPTICAL  AXIS  FROM  N077LF  EXIT  PLANE 

C  YMC.av  IS  ThF  y-OIST  OF  OPTICAL  axis  TO  CAVTTy  axis 

NOOX  IS  NUMHEW  OF  GRID  POINTS  ALONG  XL  F  N 

r  NO()Y  IS  No^KER  OF  OHIO  POINTS  ALONG  Y[  p'j 

C  NOStO  IS  NUMMFW  UF  SEG-tF.NTS.  maaJmum  OF  S  PF 3  CAyTTY 

C  FLAG  TS  PARAMETER  WHICH  CONTROLS  SELECTION  OF  DENSITY  fjelj 

C  sT.  SP-1  .CONTOURED  SIOEwalL 

C  =  2.  S‘»-1 .  Flat  sidewall 

C  =0.  AI.L  OFI'JSITY 

c  =  <*.  MOu-b.  XLS-1 

C  a  S.  INPUT  F»OM  CAPOS  UN  DATA  SET. ..IN... 

r.  a  (A.  SAME  SHLTNE  CO-EFF  That  WERE  READ  I\  FIvF 

C  *8.  RUN  112  AT  T*  l  .  b  SEC  RIGHT  STAGE  ROTH  WALLS 

C  sfl.l  READ  NAMFLIST  OtNSb  FOR  RIGHT  aTAGE 

C  =9.  »UN  1  OR  AT  Tsl.o  SEC  LEFT  STAGE  «OTh  WALLS 

C  sR.l  RE  AO  NAMFLIST  OENSW  FOR  LEFT  STAGE 

C  =10.  «£AO  DENSITY  FIELO  FROM  onIT  JO 

C  =11.  PE  AO  DENSITY  FIELD  FROM  UNIT  Jl 

C  MPE5T  IS  A  FLAG  FOR  COMPUTING  A  RES1RATFO  GAIN. ..IF 

C  =  ]  READ  OFF  ThE  oIG  G  HUT  USE  nEw  OENSTy  FIELD 

C  so  THFN  T  ax  E  The  CO-EFF  AS  They  nOw  EXIST 

c 

c  NGTYPE  a  2...  THERMAL  HLOOMING  FOR  Mijl  T  I  -BEAM 

C  a  1...FULL  PL  Own  KINETICS. . .GUL 

C  a  0  SIMPLE  CLOSED  FORM  E.A.b.  GOL  KINETICS 


0  0  0  0  0  0  0  0  0.0000 


NGPLOT 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 

c 

c 

c 

c 

c 

c 


a  0  NO  PLOTS  OK  GAIN  INSIDE  Inf  CAVITY 
a  1  PLOT  A  SLICE  ThROUuH  THE  CAVITY 
a  ?  ISO-AMPLI TUOE  OF  GAIN  IS  PLOTTED 
=3  GET  BOTH  PLOTS 
a-t  GET  ALL  BUSSIbLrl  PLOTS 


IPOEN  a  0  nO  PLUT  JF  PO«£P  OtNSlTY  AT  EACH  SLICE 
^  1  SLICE  »LOT  OF  RwR  OE  va 
a  2  ISO-  INTENSITY  PLOT  FOP  CavITy 
a  3  ALL  FOP  THfc  MONEY 
IIISE  a  -1  NO  FUSE  no  PLOTS  NO  NOTHIN 

a  ,1  NO  FUSE  ANA YL S IS*  HU  T  DEnISTY  GOULY  PLOTS 
a  1  FUHS  ANAYLSIS...NO  PLOTS 
a  2  FUHS  IS  USED  <WHYM£?>  AS  IS  ISO-PLOTS 
a  T  FUHS.  ISO-PLOTS  OF  FUHS  ANO  RESULTANT  FUSE 

title  is  thf  tile  to  appeap  on  the  cavity  goulies  <v 


(AEHQ) 


ANO  AEPO 
GOULESESS 


T  1 

IS 

V I  PR A  T I ONAL 

TEMPER TUPE 

OF 

00  V 

AT 

NfP, 

OEG 

K 

T  2 

IS 

V  I  HR A T  I  ONAL 

TEMPER  1 uPE 

OF 

ovo 

AT 

NFP. 

DEG 

K 

T3 

IS 

VIHWATIONAL 

TEMPERTUPE 

OF 

VOO 

AT 

NFP. 

DEG 

K 

TN2 

IS 

VIHPATTONAL 

temperture 

OF 

NITROGEN 

AT 

NEP. 

OEG 

K 

rs 

IS 

static  TFMPERTURE  in  cavity  Af  r.EP « 

OF  G 

,  K 

PS  IS  STATTC  PRESSUHt  IN  CAVITY  AT  N£p,  ATM. 
V  IS  PLOW  VELOCITY  IN  CAvITY  AT  N£P,  CM/SEC 
phpch  i<;  p-hpanch  tpansition 
an2  rs  mole  fpaction  uf  nitrogen 

<C02  IS  MOLE  FRACTION  UK  CAPHOt.  UIOXIDE 

xh2o  rs  mole  fraction  of  «atfr 

XCO  is  MOLE  fraction  of  CAPflON  MONOXIDE 

A02  IS  mqlf  fraction  OF  OXYGEn 


..go.............  Thermal  8l0umInG  muti-pfam  cavity  »****»■»■»»*• 

ALFA  IS  Thf  MEmuM  ADSORB  C0-EFF  IN  Cm-I 
ACp  TS  ThE  MFD  TUM  SPECIFIC  h£AT  IN  j/r-  M-OEG  < 

TTVMP  TS  The  mcqiuM  TEMPERATURE  In  DEG  « 

VELTy  TS  ThE  VELOCITY  OF  Mfc.OIUM.,.[F  ,L  T ,  1,  ThEN  THE  F«£E 
CONVFCT ION  VFLOC0TY  IS  CALCULATED  AMO  USED 
ANGL  IP  THE  ANGLE  OF  FLOW  RELATIVE  TO  n.e.P.  0.  IS  LIKE  CAVITY 
(IF.  AWAY  FROM  N.e.P.)  ANO  180.  IS  TH£  OTP£B  DIRECTION 


A  VGA  IN  IS  THF  AVFHAGE  UF  GAIN  CU-EFF I ECFNTS . . . HOOPE  FAST  CO  .VERGE 


SUBROUTINE  CAVITY  76/176  0PT=1  FIN  4.6+4S2 

04/27/79 

12.23. 

,47 

iUHWUUT In£  C.4V1  IT  (i.CAVN.  1 LK  « i»t  »C  A  V  .  1  N  (  T.I.STE  .  If.  ♦  *tb  T  W  f  .NWL  T  . 

CAVITY 

d 

A  ZLl.ZL'Jf 

CAVITY 

J 

c 

dOC  CavITy  wyDtu 

cavity 

4 

c 

r-la  WOUIII.E  AWWCIEb  tnt  tvKtCfb  UE  A  POL  CAVITY  TO  THE 

LDMWLtA 

CAVITY 

b 

c 

►  I  ELl) 

CAV I I Y 

6 

LEVEL  2.  CD.AC.ALAV.WUU.WWu.LDWfCP.Db 

CAVITY 

T 

LEVEL  Z.WU 

LUWW2 

4 

CDWMON  /Cub/  ub  C 1 7 1 UO! 

CDWrti 

4J 

Cuwwuh  /Cava/  woO.acav .cduw 

LUWWI 

44 

CUMHO(./HWWMOW/WADLuW.AHPA.AI.UI 

CAVITY 

CDHWUi.  /P.'ACIW/  PEaCTIZ) 

cwuwi 

V 

CDMMDt. /  VAY/WNDw. NWEP . W AW  T W 

CAVITY 

10 

CuwHON/CAva/  AL(b)  .rcib)  .eL(s»  .i.ao»  .N»<b>  .i.blbl  .xwcibl 

i . rwc isi • 

CAVITY 

11 

64 
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c 


2  NoTYP9<bl.  N0PL09T5I.  ioSRTbl.  IP0E9O). 

J  sbGAiNllYU.bl  .SAT  Inisi  .at  I  Alb)  .RHObTb* . 

*  velts)  .uamis) .  amacm(5i  .rvio).r»ii3),rvj(bi.  tvn2  tst .  iscav  oi . 
a  RSCkv  O)  .PFMbi  .fN2(5)  .FL MOI  .FH20T5)  .FCOlb)  .F02I5)  .  T I  U.E  12U)  . 
a  Av(i(b)<  nsym 

C0MMON/MtLl/CUll6JttAI  «CF  IL  l  10312)  .A112S>  .  *L  .NP  TS.NPY  .  OH  A  .OPY 
Common  /LCg/  Cg II 7100) 

otMtNbiON  tpassi29u)  •  tpui260)  •  >>uiiruiii  •  ppoumooi  » 

A  R0012)  .  ACAVU90)  •  Coh>J2/6S> 

COMPLtA  CO. O'  IL .CG.CAAAY .CuuM 
LOGICAL  INlT.HESrRl 
EQUIVALENCE  <CUR<1) .Cull) > 

EQUIVALENCE  IPPOU)  .Cull)  >  .  ICF  iLtn  ,P0il>  ) 

OAT A  OF  AC  TW  /  i.  / 

DATA  ALEN. YlEN.ZLEN.AMCAV . YMLAV.NQoA.NUUY.NOSEG* 

A  FLAG.MRtST.  NGIYPE.  NGPLOl.  lUSfc.  IPOEN. f 1 • 12. r J. TN2. TS.PS.V • 

A  PdRCH,  AN2  •  ACU2  •  AH2U  .  ACO  <  AQ2  .  AlFa.ACP  • VtL I Y . I  TEMP  •  ANGL  .  AVGA1N 

a  /b*o.o.2*u.j«o.o.j*u.-i.u.i9»u.o/ 

NAMElIST/  CAVTY2  /ALEN.YLtN.ZLEN.AMCAV.YMCAV.NOUA.NOUY.NUStG* 

A  FLAo.MWtST.  NGrrPE.  NGPLO T <  IOSE.  IPOEn. T1.T2.T3.TnO. t  S.PS.  V . 

A  HttRCM.AN2.AC02.AH20.AC0.AO2.  i  l  TLt .  Ac.  A.  ACP  .  V  ELI  Y  .  TI  EMP  .  AN&L. 

A  AvGAiN.  GFACTR 


alln  is  length  of  Cavity  in  flow  oiRtcTiUN 

TLcN  lb  LENGIH  OF  CAVITY  ACROSS  NOZZLES 

ZLEN  lb  LENGTH  OF  CAVITY  IN  OPTICAL  01HECT ION 

AMCAV  lb  TMt  A-OIST  OF  OPTICAL  AA IS  FROM  NOZZLE  EA I T  PLANE 

YHCAV  lb  THE  Y-Olbl  OF  OP  I i CAL  AAlb  TO  CAVITY  AAIS 

NOUA  lb  NOHttEP  OF  GPU)  PO  IN  T b  ALONG  ALEn 

nOUY  is  NUMdfiR  OF  gPIo  POINTS  along  YLEN 

NOSEg  Is  NUMBER  OF  sEGHtNls.  MAAI«UM  OF  s  PER  CAVITY 

Flag  lb  PAPAMETtP  whICm  LJNlPOLb  SELECTION  OF  DENSITY  FIELD 

*  l.  Sp“ l . CON T OUMtO  SiOtPALL 
«  2.  SR-l.  Fla  I  5 1 Dt w ALL 

*  i.  ALL  DENSITY 
»  a.  fiou-o.  ALS-1 

*  3.  Input  FROM  CARDS  ON  JAIA  Ski... IN... 

■  O,  SAME  SPLlNt  CO-tFF  IMAI  WERE  Pt AO  IN  FIVE 
At).  PUN  112  A I  7*1. o  SbL  PIGHf  STAGE  BOTH  A  ALLS 
*6.1  PEA u  NAMEcISl  UEN56  FOP  RIGHT  sT AGE 
•V.  PON  1V9  A 1  1*1.6  SbL  LbFT  STAGE  buIm  walls 
*9.1  RF.AU  NAMELIST  UENSV  FOP  left  STAGb 
*10.  Rh  40  OENSlIY  FIELD  FROM  ONU  JO 

*11.  READ  density  FIELD  FRUM  out  ji 
RWtST  lb  a  FLAG  FOP  COMPOUND  A  PtsiPuTbO  GAIN. ..IF 
»  l  PEAu  OFF  I  me  BIG  g  SO T  USE  Ntw  oEnsty  field 
m  0  T MfcN  TAKE  TMt  Co-tFF  AS  iRtT  NOW  EA 1ST 


NuTYPt  *  2... THERMAL  PL0UM1NG  FOR  MOL  II -St  AM 

*  I...FOLL  SLOwN  lUwt  I  ICS.  ..DDL 

*  0  SIMPLt  CLOSbO  FOMM  E.A.b.  GOL  KINETICS 


NGPLOT  a  0 

■  l 
»  2 
a  3 

»- 1 


NO  PLOTS  OF  GAIN  INSIUt  TMt  CAVITY 
PLOT  A  SLICE  TriPOUGM  iHt  CAVITY 
ISO-AMRLi lUOb  OF  GAIN  Is  PLOITbD 
GET  SO TM  PLOTS 
GET  ALL  POSSlSLb  PLOTS 


IPOtN  a  0  NO  PLOT  OF  POWtR  ObNSITY  A I  tACH  SLICE 
*  1  SLICE  PLOT  OF  PWR  DENS 
a  2  ISO-  INTENSITY  PLOT  FOR  CAVIIY 
»  3  ALL  FOR  TMt  MONtT 
lose  »  -1  NO  FOSt  NO  PLOTS  NO  NOTHIN 

a  0  NO  FOSE  ANAYLblb.  SO T  OtNIST Y  OOOLY  PLOTS  (AERO) 
a  1  FOMS  ANAYLblS. • .NO  PLO I S 
*  2  FOMS  IS  USED  IRMYNt />  AS  lb  ISO-PLOTS 
a  J  FOMS.  ISO-PLOTS  OF  FUHS  A NO  RbSOLTANT  FOSt  AND  AERO 
TITLE  IS  The  lILt  TO  APPtAR  ON  TMt  CAVITY  GOOLIES  A  GOOLEStSS 


T 1  IS  V  IdRA T 10NAL  TEMPER  I URt  OF  00V  AT  NtP.  OtG  A 

T 2  IS  VIBRATIONAL  TEMPER TURt  OF  OVO  AT  NEPt  OtS  A 


CAVITY 

12 

CAVITY 

1J 

CAVITY 

1* 

CAVITY 

IS 

CAVITY 

16 

CAVITY 

17 

CiUOtNS 

1 

ClUOtNS 

2 

ClUOENb 

J 

CAVITY 

20 

CAVITY 

21 

CAVITY 

22 

ClUOENb 

• 

CHOP  I 

10 

CAVITY 

25 

CAVITY 

26 

cavity 

27 

CAVIIY 

26 

CAVITY 

29 

CAVITY 

JO 

CAVITY 

Jl 

CAVItY 

J2 

LRUP1 

U 

CAVITY 

J» 

CAVITY 

JS 

CAVItY 

Jo 

CAVITY 

J  7 

CAVITY 

JS 

CAVITY 

J9 

CAVITY 

*0 

CAVITY 

•  1 

CAVITY 

*2 

CAVITY 

-J 

CAVITY 

AA 

CAVITY 

AS 

CAVITY 

A6 

CAvirr 

*7 

CAVItY 

AS 

CAVITY 

A9 

S007TCY1 

3 

S0U7TCY1 

A 

S0U7TCY1 

5 

SOU77CY1 

6 

SOO/TCYl 

7 

50Q77CY1 

S 

CAVITY 

SO 

LAV  I T T 

Si 

CAVITY 

S2 

CAVITY 

SJ 

CAVIIY 

SA 

CAVITY 

5b 

CAVITY 

56 

CAVITY 

57 

cavity 

bS 

CAVITY 

59 

CAVIIY 

60 

CAVITY 

61 

CAVITY 

62 

CAVITY 

63 

CAVITY 

6a 

CAVITY 

6b 

CAVITY 

66 

CAVITY 

67 

CAVIIY 

66 

Cavity 

69 

cavity 

70 

cavity 

71 

CAVITY 

72 

CAVITY 

7  J 

CAVITY 

7a 

cavity 

75 

CAVIIY 

76 

65 
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13  la  V  IONA T  ZONAL  rEMNEMluHfc  Of1  YOU  AT  NEP *  UtG  K 

TN*  la  V13NAUUNAL  TCwt'CHlwHt  OF  NIIaUGEN  AT  NEH.  UtG  K 
T5  la  suite  re*»»tMrunE  in  caviiy  ai  nep.  otG  * 

NS  la  STATIC  PNESSUNE  in  CAVITY  AT  NEP*  ATM. 

V  IS  FLOG  VELOCITY  IN  CAVITY  AT  NtP.  CM/SEC 

PHNC*  IS  P-«HAnCM  ThanSI  T  Ion 

AN2  is  MOLE  Fraction  OF  niIhugEn 

ACO*  IS  MOLE  Enaction  OF  CAMPON  OIOAIOE 

am*o  is  mole  enaction  of  natem 

ACO  IS  mole  ENACTION  OF  CaMMUN  mono a 1 OE 

AO*  IS  MOLE  FHACriON  OF  OAYGEN 

••*•••••••••••  f nenhal  glooming  muT i •beam  cavity  •*«•»«•••»•• 

ALFA  IS  the  MEOlUM  AdSOHB  CO-tFF  IN  CM-i 
ACP  IS  I ME  MEOIOM  SPtCIFK  meat  In  o/GM-OEu  * 

T TEMP  is  f h£  MEOIOM  TEMMEHAIUME  IN  OCg  K 

VELIY  IS  T rt£  VELOCITY  OF  MEU1UM...1F  .LI.  l«  THEN  THE  FMEE 
CONVECTION  VELOCOTY  IS  lALLULATEO  ANO  USEO 
AmGL  IS  The  ANGLE  OF  FLO*  NEGATIVE  TO  N.E.P.  0.  IS  LIKE  CAVITY 
(lb.  AaAY  FnoM  n.E.P.)  »NO  180.  IS  TmE  OThCN  OINtCTlON 


AVGAlN  IS  THE  AVERAGE  OF  GAIN  CO-EFFIECENTS...MOOPE  FAST  CONVEMgE 


•••  TEaT  lo  a£6  IF  HttN  IN  Mia  CAVITY  atFoNe 
IF  1 .NO  T . INI T «OH .NEaCAV  «Eo. 0  I  GO  TO  au 
NI  *  0.1*159* 

NSYM  ■  0 

IF  (NPV.Mt.NMfS)  NaYMal 
NN3TNAN3YN 
NON*  NPT3»r»HY 
MNe.iT  »  0 
n£aO ( 1N.CAV  T  Y * 1 
NtAO  (IN. 1**31  TITLE 
1**J  FOnMaT  (*0a*) 

AN  1 TE  I o . *00 1 


tuo  FOnMAIUVMO 

A  39ho  CAVlIY  NNOOtNtlES  ./ 

A  JVKI)  > 


AN l TE (6. )  001  T I TLt • ALEN. rLEN.ALEN.NOUA.NUUY .NOStO 
1U0  FONM*  T(*IN(JCAVITY  gEOMEThy  FON  «*0A*/1A. /MALfcN  *  .Gl*.5»*X, /MYLtN 
AA  .G1*<3«*X. TmZlEN  A  .Gl*.a«*A. GmnO  0 A  »« IG.*A. 7HN00Y  a  . ia.*A. 
AiNi.oato  «  .  I*> 

ANirt(ft.ioi)  ahcav.tmcav 

iui  fohmat (*smuloca( ion  of  opiical  AAia*/iA.anAMCAv  *  .Gi2.3.*x. 

A  dnYMCAV  A  .G1*.SI 
IF  (NGTYPE.EU.2)  GO  TO  IDG 
*NlTE(6.iO*>  T3.P3.V. PUNCH 

102  FONMAT ( 1GM0CAVI I »  CONUlTlUNb./lA.SnlS  ■  .0i2.3.*X.5riPS  >  .01*. a. 
AAA. llnvELOCl TY  a  ,oI*.3«*X.9HP-0HAnCh  »F3.0) 

•NlTt (6. 103)  AN2»ACU2.XH*W*ACU«AU2 

103  FOnMAT  (l*HOCOMt»OSITlON./lA.GMAN*  a  .  Gl*  .3.  »X  .  /HACU2  «  »G1*.5**X. 

A 7MAM*0  a  tGl*.S.*A«6NAC0  a  .Gl*.3.*A.GHAU2  a  .01*. 31 

C  LO AO  CAVITY  NANAMETEM3  INTO  APPWUPH I A  TE  3  T  OH AGE  AHHAYS 

TV  1 (NCAVN) *T 1 
T  V2 (NCAVn) aT* 

TVJ (nCAVN) a  TJ 
T  VN2 (NCAVN) » TN* 

TSCAV (NCAVN) aTS 

.  aNITE(G.IOA)  TN2.ri.r2.T3 

10*  FONMAT  (25HOV1BNATIONAL  T  EMPfcHA  TUNES . / 1 A  »  GH  f N*  ■  »G12 .5. *A . 5M I  1  »  . 
xol*.a.*x.Snr*  *  .012.3.AA.3MT3  *  .012.3) 

OO  TO  10/ 

IOG  MNEST  a  * 

TV l (NCAVN) aACFA 
TV* (nCAVN) *ACP 
TV3(NCAVN| AVELTY 
TVN2(NC»VNI aTTEmP 
TSCAV (NCAVn) aANGL 

*N|TE (6.1 93)  ALFA.ACP.VELIY. T IEMN.ANOL 
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CAVITY 

/  7 

CAVITY 

ZB 

CAVITY 

Z9 

CAVITY 

BO 

CAVITY 

B1 

Cavity 

02 

Cavity 

03 

cavity 

0* 

CAVITY 

as 

Cavity 

OG 

CAVITY 

OT 

Cavity 

08 

CAVITY 

09 

CAVITY 

90 

Cavity 

91 

Cavity 

92 

CAVITY 

93 

Cavity 

9* 

CAVlIY 

93 

Cavity 

96 

cavity 

97 

CAVITY 

90 

CAVITY 

99 

CAVITY 

100 

CAVITY 

101 

CAVITY 

102 

Cavity 

103 

Cavity 

10* 

cavity 

ios 

CAVITY 

IOG 

COMHl 

*6 

CAVITY 

10/ 

cavity 

lot) 

cavity 

109 

CAVITY 

110 

CAVITY 

111 

CAVITY 

112 

CAVITY 

113 

CAVITY 

11* 

CAVITY 

115 

CAVITY 

110 

CAVlfV 

11/ 

CAVITY 

110 

CAVITY 

119 

CAVITY 

1*0 

CAVITY 

121 

CAVITY 

1*2 

CAVITY 

1*3 

CAVITY 

1** 

CAVITY 

1*3 

CAVITY 

1*6 

CAVITY 

l  */ 

CAVITY 

1*0 

Cavity 

1*9 

CAVITY 

130 

CAVITY 

131 

CAVITY 

13* 

CAVITY 

133 

CAVITY 

13* 

CAVITY 

13S 

cavity 

136 

CAVITY 

137 

CAVITY 

130 

CAVITY 

139 

CAVITY 

1*0 

CAVITY 

1*1 

CAVITY 

1*2 

CAVITY 

1*3 

CAVITY 

l** 

CAVITY 

1*5 

CAVITY 

1*6 
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193  FORMAT  ( //S  7h  TMcRMAL  BLUUMInG  ANAYLSIS  OF  MuO  l-BEAM 

SYSTEM, . .C 

CAVITY 

1*7 

aOnsTanTS  AK  E  («/7  H  ALFA  *»012.S«6H  CP  a«FB.*,I  fn  FLO* 

VELOCITY  a 

CAVITY 

1*8 

A. Fa. A,  *m  ftMR  s  ,F s.*«  1 UH  ANGLE  ■  (Fa. A  // 

) 

LAV  I T  Y 

1*9 

107  YC (NCAVN)  a  YLtN 

CAVITY 

ISO 

AC (NCAVN)  a  ALtN 

CAVITY 

1SI 

ZClNCAVNI  *  ZLEN 

CAVITY 

102 

AVu(NCAVN)  sAvGAIN 

CAVITY 

1S3 

AML  (NCAVN)  aAMCAV 

CAVITY 

la* 

YNC  (NCAVN)  aYMCAV 

CAVITY 

156 

NA( NCAVN 1  *  NOUA 

CAVITY 

1S6 

NY (NCAVN)  a  MOOT 

CAVITY 

1S7 

NS  (NCAVN)  a  NOSEG 

CAVITY 

isa 

OF AC  f (NCAvn) *gf  aCIm 

lmopi 

12 

OCZ  a  ZC (nCAVN)/nSIN(.AVN) 

CAVITY 

1S9 

OCa  a  AC INCAVNI /N* (nCAvNI 

CAVITY 

160 

OCY  a  YC (NCAVN) /NY (NCAVN) 

CAVITY 

161 

NSA*NS (NCAVN) 

CAVITY 

162 

NY  AaNY  (NCAVN)/ INSYH»1> 

CAVITY 

163 

NAA*NA (NCAVN) 

CAVITY 

16* 

HOT*NAA*NYA 

CAVITY 

16S 

(40 TYP9I NCAVN >  »N(»lYPE 

CAVITY 

166 

NGPLU9I NCAVN)  *NGPLOT 

CAVITY 

167 

IUS9(N<AVN>  a ll/St 

CAVITY 

168 

IKUEv (NCAVN) alPuEN 

cavity 

169 

PSCAV (NCAVN) *PS 

CAVITY 

170 

VEL (NCAVN) av 

CAVITY 

171 

PH (NCAVN) aPBHCn 

cavity 

172 

CaaAY  a  CMPla(o.,2.*P1/»(L) 

cavity 

173 

TOPlaL  *  2.  •  PI  /  *L 

S0U7TCY1 

9 

F  N2 1 NCAVN ) a  an2 

CAVITY 

1  7* 

FC02 (nCAVN) a*C02 

CAVITY 

1  75 

FH20 (NCAVN) AAH20 

CAVITY 

If* 

FCo (NCAVN) axCO 

CAVITY 

1/7 

F02 (NCAVN) a*02 

CAVITY 

178 

IBASE  «  10-(NCAVN-D*U 

CAVITY 

179 

IF  (NGTYPE.EU.2)  00  TO  100 

Cavity 

180 

c 

calculate  small  signal  gain  as  a  function  of  a 

cavity 

181 

call  OAlNAY (PO,uS«NCAVN, 1 ) 

CAVITY 

182 

pH  I  Tt  (71  (CU(IZ).U«1.NUB) 

cavity 

183 

PEalNO  7 

CAVITY 

18* 

prtuaxnOS  (NCAVN) 

CAVITY 

18S 

c 

CALCULATE  CAVITY  OENSITY  FJELU  as  a  function  of  A  ANO  Y 

CAVITY 

186 

CALL  OENSY (FLAG'HHUtALfcNt  ylEN.OCZy NAAvNYA, 1 . IN.NNSYM) 

CORfll 

*7 

c 

STORE  DENSITY  FIELO  ON  OIRtCT  ACCESS  FILt 

CAVITY 

188 

»R l TE (  IBASE )  (PPO(U>  «U»l«MUl  > 

cavity 

189 

mEmINO  I BASE 

CAVlfY 

190 

c 

CAVITY 

191 

c 

IF  restarting  from  a  previous  nun.  Then  skip  the  initial 

Cavity 

192 

c 

GUESS  AT  gain 

Cavity 

193 

c 

Cavity 

19* 

,1)0  IF  <  NESTHT  .ANO.  HUES  T  .N  E.  1)  Go  TO  *9 

cavity 

195 

00  10  NNSal.NSA 

CAVITY 

196 

ACL0*-OCA/2. 

Cavity 

197 

I BASE  a  (BASE4 1 

CAVITY 

198 

IF  (NMEST  .NE.l)  GO  TO  20 

CAVITY 

199 

HCAOUBASC)  (CGUZ)  .Ual.HUT) 

Cavity 

200 

HEwINO  I BASE 

CAVITY 

201 

c 

GENERATE  COMPLEX  gain  arrays 

Cavity 

*02 

20  XMULI  •  OCZ/6. 

cavity 

203 

00  11  tAal.NAA 

CAVITY 

20* 

XCLOa  OCA*xCLO 

CAVltY 

205 

GOP  a  SSOAINIIA, nCAVN) 

cavity 

206 

AMuLTH  a  EAP  <AMUL1*G0P) 

cavity 

207 

00  11  l Y»1 ,NY  A 

cavity 

208 

12  •  IX« ( lY-i ) »NAA 

cavity 

209 

PHIR  a  fUPtaL  •  PRO (12) 

S0077CYI 

10 

IF  (MREST  .EU.UI 

CAVITY 

210 

aCO( 12)  •  XMOLTR*CMPLA(COS(PNIM) ,SIN4PMIM) ) 

SOU77CY1 

n 

c 

A  CG (  12  1  a  EAP (G0R*UC2/6, ) *CbAP (CAKAY*PPO (  12  )) 

CAV I 7y 

212 

IF  (MMEST  ,EU. 1 ) 

Cavity 

213 

A  CGI  12)  •  CAOS(CG(Un«CMPLA(LOS(PMlM)  .SlN(PMlM)  ) 

SOW77CYI 

12 

c 

A  CGI  12  >  a  CABS (CGI  12  ) ) •CEAPILAAAYaPPOl  12  >> 

CAVITY 

215 

67 


IF  (MPEST  .cU. 4) 

CAVITY 

416 

Cl»  (  U  )  *  OPCX  (  I..U.1 

CAVITY 

41/ 

u 

COnTI-NOE 

CAVITY 

41a 

■HlltddASE)  (Cot  U)  *  U*l  .*01  1 

CAVITY 

419 

i  a 

PE.INO  lOASt 

CAVITY 

240 

*9 

MEAD  (71  (CU(U)  >u<i<mi 

CAVITY 

441 

P£*lN0  t 

CAVITY 

444 

c 

APPLICATION  OF  CAVIIY  TRANSMISSION  FUNCTIONS  10  COMPLEX  F  1LL0 

CAVITY 

443 

30 

1S4«NS(  NCAVN) 

CAVITY 

44* 

NYA*NY  ( NCAVNI/ (NSfM»ll 

CAVITY 

443 

NXA*NA  (NCAvNI 

CAVITY 

246 

MUT  ■  NXA*NYA 

CAVITY 

42  r 

c 

••• 

FIHST  TIME  ThPOUGn  (MIS  CAv l  1  Y  ♦  ZEBO  average  intensity  APHAY 

CAVITY 

44B 

IF(NE*Cav.£U.U)  00  TO  31 

CAVITY 

449 

c 

CALL  ZEPO(PO(  1  ).PO(  MOT  II 

CAVITY 

430 

00  *63  UEPOaltMUT 

CAVITY 

431 

*65 

P0( I ZERO 1 »0. 

CAVITY 

232 

IGAStal')*INCAVN-l>*ll*3 

CAVITY 

433 

NCOLU  a  0 

CAVITY 

43* 

00  33  12»1.NSA 

CAVITY 

433 

IOASalBASfU 

CAVITY 

236 

aPITt  (16AS1  (P01U)  iU"l  .MOI 1 

CAVITY 

237 

33 

PE* INO  Id AS 

CAVITY 

236 

31 

IdASfc  a  10*(nCAVN»h*1i 

CAVITY 

439 

IF  (NCAVN  .£u.  NCOLO)  GO  To  46 

CAVITY 

2*0 

OX  a  *C (NCAVNI /NXA 

CAVITY 

2*1 

OY  a  YCINCAVNI/NY (NCAVNI 

cavity 

4*2 

c 

ESTABLISH  CAVITY  INTfcHPOLA T ION  AMNAY  (TPASS) 

CAVITY 

2*3 

TPASSI1I  *  UA 

CAVITY 

4** 

TPASS (41  «  OY 

CAVITY 

4*3 

TPaSS  (31  a  NYA«.(I01 

CAVltY 

4*6 

TPASS(*I  a  NAA«.00i 

Cavity 

4*/ 

TPaSS 151  *  10Y-VC(NCAVN1 1/4.  ♦  YMC (NCAVN) 

CAVITY 

4*6 

TPaSS (5«nYa1  a  OX/4.  -  XMCtNCAVNI 

CAVITY 

4*9 

00  5  I  a  2.NYA 

CAVITY 

430 

S 

TPaSS(**11  •  TPASSUMl  ♦  OY 

CAVITY 

431 

OO  6  N  a  2 • NXA 

CAVITY 

432 

6 

TPASS(**NYA»NI  aTPASS(3*NYA«NI •  OX 

CAVITY 

233 

NCOLO  a  "ICAVN 

CAVITY 

23* 

46 

NSTaNSTE 

Cavity 

4S3 

I OU  T  a 1 

Cavity 

236 

DCZ  a  2C (NCAVNI /NSA 

CAVITY 

437 

c 

PROPAGATE  10  FIPST  GAIn/PmaSE  SEOMEN1 

CAVITY 

436 

IF  ( NS TE. CO. 3. OH. NS TE. £0.31  lOOTad 

CAVITY 

439 

IF  (NSTE.EU.J1  NSTa2 

cavity 

460 

c 

IF  (NSTE.3£.*.AN0.(0C4/4.*4HI .Gf.l.UI  CALL  COPE (0CZ/2.U*ZLl .0.0) 

CAVITY 

461 

IF  (NSTE.oE.«.ANO.(OC4/4.*4Lil  .0T.1.U1  CALL  STEP  (0C2/4  >I1*4L1 » 

CAVITY 

462 

P  AOCUH  ..l..!.NSr.u.llt  ANGX  t  ANOY  .0.1) 

CAVITY 

263 

IF  (N3TE.LE.J.AN0. (OCZ/4. •ZCl 1 .GT.1.U1 

CAVITY 

46* 

1CACL  STEP  (OC4/4.1WL1  .HAoCoP.  .1.  .  1  «NSI  t  U •  0. ANGX. ANGY .0.0) 

CAVITY 

463 

MtMOMYao 

CAVITY 

466 

IF  InSTF.lE.J.ANO. (OCZ/2 . *ZC 1 1 .LE . 1 . 0) MtMOHYa l 

Cavity 

467 

00  S3  JNS*  1  *  NS  A 

Cavity 

466 

Id  a  |) 

CAVITY 

469 

IFIILP.LI.UI  IdaNS (NCAVNI ♦! 

Cavity 

470 

I  AoO  a  JNS*1LP*1P 

CAVITY 

471 

XFaCT»1 . 

CAVITY 

4/2 

IF  (NMtU.NE.0l  xFACTal  ./»N0*»*4 

CAVITY 

4/3 

UlPO  »  1  AOO  »3*I  BASE 

CAVITY 

4/* 

c 

ESTABLISH  F IfeLO  iNTEPPOLAl ION  APMAY 

CAVITY 

4/3 

TPO (11  a  A (4) -X ( t 1 

CAVITY 

4/6 

TPO (41  a  (POtll 

CAVITY 

4// 

TPUUla  NPY 

CAV I 1 Y 

4/8 

I PO  t * 1  a  1PTS 

CAVITY 

4/9 

00  3*  IPJal.NPY 

CAVITY 

460 

!>* 

TPO(lPJ»*l  ■  X(IPJI«0PY 

CAVITY 

461 

1)0  44  IPJal.NPTS 

cavity 

464 

TPO(  IPJ«NPY»*  1  •  A(1PJ)«(IHX 

CAVITY 

463 

c 

•«« 

COmPOIE  IN Tt'VS ITT  InCIOEnI  oPON  SEGMENT 

CAVITY 

26* 

00  61  Ma* 1 .Nod 

CAVITY 

263 

o  o  nn  oo 


ol  0S(  h*  l  a  *  CUM(2»ma)«*2)  •  xF»CT 

CAVITY 

2B6 

•wire  in  (us< u> .12«i.nub) 

CAVITY 

207 

xb* i no  r 

CAVITY 

2BS 

ucs  «  uouMBast 

CAVITY 

2B9 

HtAUUOCO)  (Cb(12)  .12»l*Mul  1 

CAVITY 

290 

RtalNU  luCu 

CAVITY 

291 

IF  (NPLT.EU.O)  oO  TU  00 

CAVITY 

292 

c 

PLOT  F1EL0  iNCIOtNT  ON  SAIN/PHASE  SEOMEnI 

cavity 

293 

»RlTt  (6.691  NCAVN*  1 AOO 

CAVITY 

29* 

09  FORMAT (J9MI  •*•••  £-M  FIELD  iN  CAVITY  NUMBER  .12.19M  AT 

s 

CAVITY 

295 

AEumEnT  a  . I2.*1H  BEFORt  uAiN  HAS  BEtN  APPLIED  •••••  ,/> 

CAVITY 

290 

A*  1 

CAVITY 

29T 

OMAAaO.0 

CAVITY 

290 

CALL  OUTPUT (CU.NPY .NPTS* A .A .UMAX* . THUS . . .FALSE . . .FALSE . 1 

CAVITY 

299 

c 

PLOT  OA IN  PhuF  1  Ll£  THROUGH  CtNlEH  OF  CAVITY 

CAVITY 

300 

aRlTE  (0*6 1)  NCAVN* 1 AOU 

CAVITY 

301 

0  T  FORMAT (90Hl  Cb(l.O)  PLOTTtO  IN  1 Hfc  A-U1RECT1QN  THROUGH  Tnfc  CENTER 

CAVITY 

302 

A  OF  THE  CAVITY*  FUR  CAVITY  •  .12.15m  SEGMENT  •  *12) 

cavity 

303 

OEL AC* AC (NCAVN) /NX (NCAVN) 

CAVITY 

30* 

0 

*CAV(1)*0ELAC/2. 

cavity 

305 

OU  60 7  KCAa2*NAA 

CAVITY 

300 

06 7  ACA V (ACA)axCAV (KCA~i ) *UELAC 

CAVITY 

30  7 

K*-l 

CAVITY 

306 

UMAXaO.O 

CAVITY 

309 

CALL  OUTPUT  (CG*NY  (ivCAVNI  .ima(NLAVN)  . ACAV.A .UMAX*. TRUE. »  .FALSt.* 

CAVITY 

310 

A  .FALSt.) 

CAVITY 

311 

00  U*0 

CAVITY 

312 

c 

apply  cavity  transmission  io  complex  field 

CAVITY 

313 

00  SO  JY*l.NPY 

CAVITY 

31* 

DO  SO  JAa  1  .  NP  T S 

CAVITY 

31S 

CALL  1NTERP( TP ASS* A (JA) •UMA.A(JV) «0RY»CG.2.CUUM.NNSYM> 

CURRl 

*8 

U  a  U*l 

CAVITY 

317 

SO  CU(  U  )  «  CUUM«CUI  12  1 

CAVITY 

318 

Rt AO  in  (USI12I .lAal.NOO) 

CAVITY 

319 

Nt* I NO  T 

cavity 

320 

c 

calculate  sum  of  intensities  otFone  ano  after  gain/phase  segment 

cavity 

321 

00  60  JY»1.NUB 

CAVITY 

322 

0*  US(OY)  *(CuH(2»UV.l)*«2  •  CUR (2«0Y ) **2) •  XFaCT«US(JY> 

caviTy 

323 

KEaO  (IOPOI  (PU(12) «12al.MuT) 

cavity 

32* 

REalNU  IOPO 

CAVITY 

325 

IF  (NPLT.EU.U)  GO  10  7  j 

CAVITY 

320 

c 

“LuT  FIELO  LtAv  (NO  uA  IN/'PMaSt  SEumEnT 

CAVITY 

327 

«P1TE  (6.39)  NCAVN. 1A00 

CAVITY 

328 

39  FOmHAT (///JOMt  *••*«  t-M  * ItLO  IN  CAVITY  NUMBER  . I2.19H  AT 

5 

CAVITY 

329 

AEGhEn)  a  . 12.*0h  AFTER  GAIN  HAS  BttN  APPLIED  •••••  /) 

CAVITY 

330 

K*i 

cavity 

331 

cavity 

332 

call  OUTPUT (CU.nPY.nPTS* A *a .UMAX*. TRUE. ..FALSE. ..FALSE.) 

cavity 

333 

73  TPuMlNa TPO ( S) 

cavity 

33* 

c 

INIEHPQLATE  POatP  OtNSlTlbS  ONTO  CAVITY  OHIO*  SUM  allH  RESULTS 

CAVITY 

335 

c 

OF  PREVIUUS  PASSES  ANO  STOHt 

CAVITY 

330 

1)0  57  iNVai  *NYA 

CAVITY 

337 

T  TESYaTPASS (** INY) 

CAV 1 1 V 

338 

IF  ( TTESY.L(.TPOMIF)  SO  TU  SI 

CAVITY 

339 

00  SO  iNAa  1  *NAA 

Cavity 

3*0 

TTESxatPASS(A»NYA*!NA) 

CAVITY 

3*1 

CALL  INTERPI TPO.TTESA.TTESY.US.l.POO.NNSYM) 

COHMi 

*9 

12  a  INA«(1NY-H*NAA 

CAVITY 

3*3 

SO  P0(  12  )  a  Pu<  U  )-P00(l)/2. 

CAVITY 

3** 

S7  CONTINUE 

CAV I T  Y 

3*5 

•R I TE ( l DPO )  (PO ( 12) *  12*1 *nuT ) 

Cavity 

3*0 

RtalNO  IOPO 

cavity 

3*7 

c 

PRUPAbATE  TO  NEAT  SAIN/PmaSE  SEGMENT 

Cavity 

3*6 

c 

IF  (JNS.nE.nSA. ANO. MEMORY  ,Ev.U)  CALL  CORE  <OC2*0*1>) 

cavity 

3*9 

IF (JNS.NC.nSA. ANO. MEMORY. tb.O)CALL  STEP (0C2 .RAOCOR* . I * . I «NST *0* 

CAVITY 

350 

A  0 * ANOX « ANSY *0*1) 

CAVITY 

351 

IF (JNS.NE.NSA. AMO. MEMORY. to. 1) 

CAVITY 

352 

(Call  step(0C2*raocuh..i..i.nst.  o.o.anoa.angy.o.o) 

CAVITY 

353 

MEMORYaO 

CAVITY 

35* 

c 

propagate  out  OF  CAVITY 

CAVITY 

355 

c 

IF (ONS.EU.NSA.ANO. (DC2/2..2LO) .01  *  I. 0) CALL  CURE  <OC2/E.O»2LO* 100T  *0 

CAVITY 

35* 

69 


c  *> 

IF  tJNS.Eu.NSA.ANO. 10CZ/2.»AUJ>  .&T.1.0)  CALL  SlEtMOCZ/i.O*Zt.O. 
A  RA0CU<***W.ltNS1  .  lOUT.Q.ANllA.ANOT.V.n 
55  CONTINUE 
HfeTUHN 
Erao 


Cavity  jsr 

CAVITY  )M 

CAVITY  )M 

Cavity  see 

cavity  J*i 

CAVITY  i*2 


8.  SUBROUTINE  CENBAR 

a.  Purpose  —  This  subroutine  is  used  by  QUAL  to  find  the  centToid 
coordinates  of  the  far-field  beam.  Figure  20  describes  subroutine  CENBAR 
organization. 


CENBAR. 6- 
CENBAR.  11 


CENBAR.  12-«» 
CENBAR.  22 


CENBAR.  23— 
CENBAR.  24 


Figure  20.  Subroutine  CENBAR  organization: 


'0 


r  r  o 


fa.  Formalism  --  Let  E(x,y)  represent  the  field  and  let  w (x,y)  be  a 
weighting  function  defined  by 


w(x,y) 


1,  if  |E(x,y) | " >  0 . 1  (  |E|^ax) 
0,  if  |E(x,y)|2<0.1  (|E|^ax) 


(37) 


Then  the  intensity-weighted  centroid  coordinates  are  found  from 


.  ffdxdy  jE(x,y)  1 2  w(x,y)  ~x 
c  ffdxdy  lE(x,y) |2  w(x,y) 


where  the  integrals  are  numerically  evaluated  over  the  calculation  region, 
c.  Fortran 
Argument  List 

NPTS  *  Number  of  points  in  x  direction 
DX  *  spacing  between  two  adjacent  points 
X  =  coordinate  array 

US  =  intensity  array  *  |CU(I)|”  =  •E(x,y)j<‘ 

XCINT  =  Centroid  coordinate  in  the  X  direction 
YCINT  =  Centroid  coordinate  in  the  Y  direction 
UMAX  =  Maximum  Inter sity 

The  incoming  parameters  are  NPTS , DX,X,US .UMAX.  They  are  unchanged  by  this 
routine  and  are  used  to  calculate  XCINT  and  YCINT. 

Note:  The  subroutine  assumes  that  the  field  is  square.  Computer  printout 
of  subroutine  CENBAR  follows. 


SUBROUTINE  CEN8AR  76/175  0PT*1  FIN  4.6+452  04/27/79  12.23.47 


sobWouriNf  cenbah  i  nhts*  u**  *•  vs*  *C!ni» 

YCINT*  UN**) 

CtNbAH 

£ 

CtNTxulO  LUCAUUN  NOVfcL 

CtNbAH 

i 

r«is  wyoiiNt  locates  infe  i.<it'tsirr 

CENIHOtO  OF  I Hfc 

CtNbAH 

% 

COUPLE*  * ItLU 

CtNbAH 

b 

LtvtL  it  NHIS*A*OS 

CtNbAH 

0 

DIMENSION  A(  U  •  USUI 

CtNbAH 

l 

aabamaO* 

CtNHAH 

* 

ocor  •  .1  •  uhaa 

CtNbAH 

o 

aybah«o. 

CtNBAH 

10 

! 


AOAHao. 

CbNBAH 

11 

00  10  lai.NKfS 

CbNBAH 

12 

AOTaO. 

CbNBAH 

id 

AOxau. 

CbNBAH 

l* 

00  11  dai.NHIS 

CbNBAH 

IS 

Id  a  1  ♦IJ-l)»NHrs 

CbNBAH 

16 

Jl  a  dMl-l)»NHTS 

CbNBAH 

17 

IF  (USUd  )  .(if.  OCur  I 

AiM 

•  AIM 

•  UStld  ) 

CbNBAH 

IB 

ik  (usidi  i  .sr.  ocur  > 

AuY 

■  AUY 

•  US(dt  ) 

CbNBAH 

19 

AAbAHaAABAM*A0A*0A*A ( I ) 

CbNBAH 

20 

AYBAHaAYBAH* A0Y*0X*X ( I ) 

CbNBAH 

21 

ABAHaABAH* AUX*0X 

CbNBAH 

22 

AClNraAAbAM/AUAH 

CbNBAH 

23 

YClNTaAYBAH/AbAM 

CbNBAH 

24 

Mb  1 UMN 

CbNBAH 

25 

ENO 

CbNBAH 

26 

9.  SUBROUTINE  DENSY 
Called  from:  CAVITY. 

Calls:  LINTERP,  ROSN,  ROSN6 


a.  Purpose  —  This  routine  controls  the  generation  of  the  cavity  den¬ 
sity-induced  phase  distortion  for  each  cavity  in  the  optical  train.  DENSY 
provides  a  choice  of  density  fields  including  interpreted  test  data  from 
several  devices  and  the  ability  to  read  in  density  fields  from  tape.  Little 
formal  calculation  is  done  within  the  routine  itself,  other  than  the  genera¬ 
tion  of  multipliers  and  certain  other  constants  used  by  the  interpolation 
routines.  DENSY  does  tabulate  spline  coefficients  if  any  are  used  to  gener¬ 
ate  the  phase  distorting  field,  and  provides  a  decile  plot  of  the  phase  field. 
Figure  21  shows  the  subroutine  DENSY  flow  chart. 

Argument  List 

FLAG  flag  for  density  field  selection 

IF  file  number  where  MOD  6  density  field  is  stored 

IN  file  number  where  input  card  data  is  stored 

NPX  number  of  cavity  density  grid  points  in  X  direction 

NPY  number  of  cavity  density  grid  points  in  Y  direction 

NSYM  flag  for  symmetry  of  field 

RHO  free  stream  static  density 

XLEN  X-dimension  (flow  direction)  of  cavity  segment 
YLEN  Y-dimension  (sidewall-to-sidewall)  of  cavity  segment 
ISLAB  Z-dimension  (optical  direction)  of  cavity  segment 
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Figure  21.  Subroutine  DENSY  flow  chart. 


Commons  Modified 


/MELT/ 


Variables  Modified 

P  storage  array  for  density  induced  phase  distribution 


X4 

Y4 

14 

C4 

M4 

N4 

ROCL 


spline  coefficient  and  other  data  useful  in  generation 
of  MOD  6  (XLS-1)  density  field  -  not  used  for  other  field 
options 


/LENSY/ 


Variables 

D 

H 

LL 

M 


RHOCL 

TITLE 

TM 

XLS 

XMULT 

Y 


Modified 

spline  coefficient  array 

cavity  width  (sidewall -to -sidewall) 

flag  for  cavity  wall  symmetry 

number  of  data  points  in  spline  arrays 

centerline  density  variation 

field  identified 

tangent  of  Mach  angle 

spline  array  center  deviation  from  NEP 

magnifier  for  entire  density  field 

position  array 

density  change  array 


b.  Relevant  formalism  —  Most  of  the  formal  calculations  involving 
spline  fitting  a  density  field  and  interpolating  the  results  are  done  external 
to  DENSY  (see  subroutines  LINTERP,  ROSN,  and  R0SN6) .  This  routine  directs 
the  activities  that  generate  the  desired  field.  These  activities  are  summa¬ 
rized  below: 


(1)  The  density  field  is  read  in  directly  from  information 
generated  by  another  program  and  written  to  disk  (FLAG 
■  10  or  11) 
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(2)  The  sidewall  density  variations,  but  not  the  coefficients 
for  a  spline  fit,  are  read  in  by  NAMELIST  or  from  data  state¬ 
ments.  The  complete  density  field  is  generated  by  projecting 
these  data  into  the  flow  along  Mach  lines,  and  linearly  inter¬ 
polating  via  LINTERP.  (FLAG  =  8,  8.1,  9,  9.1) 

(3)  The  sidewall  density  variations  and  their  spline  fit  coeffi¬ 
cients  are  read  in  on  cards  or  taken  from  DATA  statements. 

The  complete  density  field  is  generated  by  interpolating  with 
the  spline  fit  along  the  projection.  (FLAG  =  1  through  7) 

A  decile  plot  of  the  density- induced  optical  path  variation  (in  cm)  is 
enerated  after  returning  from  one  of  these  actions. 

Subroutine  DENSY  computer  printouts  follow. 


SUBROUTINE  DENSY  76/1^6  0PT=1  FIN  4.6+432  04/27/79  12.23.4" 


SOhROUTI  tfc  UENSYIFlAG.RMU.ALEN,YLCN.25LAU.NPA.NPY,IF  .IN.NSYM) 

INIS  PROGRAM  COMPUTES  PHASE  VARlAIION  IN  EACH  SEGMEN)  Dot  To 
VARIATIONS  IN  TNfc  GAS  DtNSITT  IN  I Nt  OPTICAL  CAVITY.  INPUT  PAMAME TEWS 

are  : 

UNO  -  Fh£E  STREAM  STATIC  UtNSITY 

XLEN.YLcN.CSLAB  ARE  (J I  PENSIONS  OK  SEGMENT 

nPa.NPY  ARE  NUMBER  UK  GRID  POINTS  IN  A , Y  OlMtNSIONS 

IK  IS  TNt  FlCt  ON  MMICN  The  MOO  b  OtNslTY  K ItCO  IS  STORED 

FLAG  -  flag  FOR  OtNSITY  FItCU  SELECTION 

■  1.  FOR  CUNlOURtO  S i UEa ALL *  T*  3  StC 

»  2.  K OR  FLAT  SlUtaALL. I  as  SEC 

*  J.  LATEST  ANO  GREATEST  rao  STAGE  DENSITY  FIELD 
a  A.  FOR  AES— l  MOU  0  M022LES  NORTH  ANO  SOUTH  SIDE 
a  s.  FOP  Input  Froh  carus  ok  spline  CO-EFFS. 
a  o.  FOR  INPUT  FROH  READ  IN  IN  PREVIOUS  CAVITY  DEFINITION 
a*.  RUN  U?  AT  Tal.G  SEC  RIGHT  STAGE  BOTH  RALLS 
•6.1  REAU  NAMELIST  UENSB  Fur  RIGHT  STAGE 
au.  RUN  109  AT  Tal.a  StC  LEFT  STAGE  BOTH  WALLS 
a9.1  REAU  NAMELIST  DENSY  FOR  LEFT  STAGE 
alO.  REAU  DENSITY  FIELU  FROM  UNIT  SO 
all.  REAU  DENSITY  FIELU  KHUN  UNIT  3 1 


IMPLICIT  COMPLEX (C) 

LEVEL  2.  P 
REAL  CA 

EUOlVALENCE  (HA.H) 

COMMON  /MELT/  P T 1608a ) t 

A  AA(21) .YAI21.81) <2+ (41  tail .Ca (21.01) ,MA(2l> .Na.RUCL 

A.OUMYS l Aa39a) 

DIMENSION  T1TLEI <20) . I ITLE2(20> . 

A  Y1  (SOI  <21  (SO)  <01  (SUI  «  Y2 ( AS)  .22 1  as  I  .02  (AS)  « 

X  Y3(S0> <23 (SO) .03 (SO) . T1TLEJ(2Q> 

A  .TITLES (201 . Y8 (SO  I • 28 (SO  I .08 (SO) 

A  •  Y8B  (SO I  . 28a  (SO )  .00*  (SO ) 

A  .Y9(S0) <29(S0> .U9(S0) 

A  . Y9G (SO) .29a (SOI «U9a(SU) • TITLE? (20) 

DIMENSION  T1LE(12).1P(190) 

COMMON/lENS Y/Y (Sl .2) <2(Sl.2>«U<Bl.2).TM(2> .ALS (2) .H.AMULT (2) . 


DENSY 

2 

DENSY 

J 

DENSY 

a 

DENSY 

S 

DENSY 

6 

DENSY 

7 

DENSY 

8 

DENSY 

9 

DENSY 

10 

DENSY 

11 

DENSY 

12 

DENSY 

14 

UENSY 

la 

DENSY 

IS 

DENSY 

lb 

sourrcYi 

1J 

S0U7TCY1 

la 

SOU77CY 1 

IS 

SOU77CY1 

lb 

S0077CY1 

17 

SOU77CY 1 

IS 

UENSY 

17 

DENST 

IS 

DENSY 

19 

DENSY 

20 

UENSY 

21 

UENSY 

22 

OENSY 

23 

OENSY 

2a 

C0MR2 

S 

OENSY 

2S 

OENSY 

2b 

UENSY 

27 

SOU77CY1 

19 

S0G7TCY1 

20 

SOU 7 7CY l 

21 

SOU 7 7CY 1 

22 

CURB  l 

SO 

OENSY 

29 

X  HH0CC12)  .H<2)  .UTLEliiUI  *CC  OtN ST  JO 

NAMEUisr  /uensb/  rM8*MB,AMB.M«w,T8.28.Tb«i.2bM  sou77cti  23 

NAMtCISf  /U6NS  9/  Th9*M9,AM9*M9M*  T9 t 29, Y9M.Z9W  SOU77CY1  24 

OAT A  GOC  / 0.228/  OtNST  31 

DATA  M3/. 21034/.  M3/S0/.  AMJ/.Oi/  OtNST  J2 

OATA  Yl/-5..-4.,-3..-2.3«-2.2»-2.1.-2.0b,-2..-l.95.-1.90.-1.85«  OtNST  33 

A-1.6»-l./.-l.35*-l..-.9.-.6«-.  7,-.65*-.6*-.S*-.45«-.4.-.J5.-.30«  OtNST  34 

15.—.  1  ♦— .05.0.  •  .05.  •  1 1  .  15.  .2.  .25*  .3*  .  35.  .4*  ,5.  .6*  .65*  OtNST  35 

C. 7. .75. .65.1. .2. .3. .4. ,5./  OtNST  36 

OAIA  Z1/5».0Q4,. 0035. .003, .002, .U0l». 0005, 7*0.. .001,. 002, .007. .014  OtNST  37 

A. .Ol7..0lS..006*-.006*-.Ol4,-.ol6*-.Ol»-.004..001t2».002..Q04,.012  OtNST  36 

B. . 01 8,. 0215, .022, .022*. 021*. 01 7.. 013. .0115. .011 I .01 05. 6*. 01/  OtNST  39 

OATA  01/  2*. 20860206-3. -.lO4JutQt-2«.*766047t-2,-.6B9a769t-l.  OtNST  40 

A-. 2861  7286-1  .-.Z89UU9  .-.146991St-i • .34791 76  .-.1769713  •  OtNST  41 

a. 359967a  .-,62900106-1.  .6 7 1 639 Jt-2 .- .4442 12 Jt-2.  .90521006-2.  OtNST  42 

C-. 65921466-1.  .2546337  .-.3526136  •  .26064146*1. - . 1 2 7 304 J6« 1 .  OtNST  43 

0  .615923/  .-. 23494556*1. -.J21810lt*l . -.15761366*1.  .23306466*1.  OtNST  44 

t  .18555426*1.  • 464 7 1 a 36 *  1 .  — . 1 2442 7 5b *  1 .  .3299169  .-.24/53926*1.  OtNST  45 


F-. 28345126— l.  .1667734  .  .40  73251b* 1 •-. 2061 7 786* 1 .-.546137  /  •  OtNST  *6 

(>-.17336/06*1.  .2606207  .-.5646124  .-.3223710  .  .61919316-1.  OtNST  47 

H  .74693/46-1.  .6274969  .-. 1666693  •  .1167565  .  .J706905t-1.  OtNST  46 

I- .27 356656-2.  . 73213306-3.-. 1 426666t-J.  .38533316-4. .38533316-4/  OtNST  49 

OATA  T2/-5..-4..-3.5<-J..-2./5«-2.5«-2.25.— 2..-1.75.-1.5.-1.25.  OtNST  50 

A— 1. 1. »!..  —  «  95. -.9.-.  65. —  .8. -.6.  — .5.  —  .4. -.3.—  .2S»-«2»-.l5»-.l«“.05*  OtNST  51 

B0.«»0S..l.«id«<2t.2S«.J.<4..3««6»./..6..9.1..l.l.l.5.2.<2.S«5./  OtNST  52 

DATA  22/4*-. u25. -.022. -.019.-. 013. -.008. 3«-. 004.-. 0035.-. 002. -.001  OtNST  53 

A5<440...003..006«— .0U2«— .01.— .02.-.022.— .013.— .00l«.01..0l7..019«  OtNST  54 

8.015. .0o/..0o2«0. • 002 .-• 004.«.u06. 3#— .008 t — .006.-.003* .006. .016.  OtNST  55 

C. 026.. 076/  OtNST  56 

DATA  02/2*. l92o/07t-2.-. 15365666-1.. 5954193E-1 J85202B6-1 .  OtNST  57 

A  . 94539196-1,-. 51636516-1.  . 1600666t-l .-. 1 0839Q9  ,  .33556916-1.  OtNST  68 

B-.2583672E-1.  .2152010  ,-.3372499  ,  .9930979  .-. 12351416* l .  OtNST  59 

C  .3474667  .-.15-/332  ,  .2999660  •  .3096702  .-.15366466*1.  OtNST  60 

0— . 7550622  .-.19922126*1.  .39239326*1.  .54964816*1.  .4901429  .  OtNST  61 

£-.25/0528  .-. 16619316*1.-. 189b221t*l. -.2557162b*!,-. 22/60486*1.  OtNST  62 

F  .20613746*1.  .12305496*1.  .2164280  .-.64556626-1,  .41807246-1.  OtNST  63 

G-. 1026701  .  .3668734  .-.1728234  .  .3224205  .  .83141466-1.  OtNST  64 

N-. 54966346- 1.  .41805006-2,-. 10607236-2.  .62395506-4.  .6239SS0t-4/  OtNST  65 

OATA  nrutl/  ahFCAT ,4M  5l0.4ntMAC.4NU  Ob.4NNSlT.4NT  FI.4N6L0  .  OtNST  66 

14NBA56.4N0  0N.4N  SH-.4HI  0A.4N/A  ,8*4M  /  OtNST  67 

OATA  riTC62/  4H  C.-N0Nf0.6NU«eU,4N  S I0.4NEM AL . 4NL  0E.4NN51T.  OtNST  66 

1 4NY  F1.4N6L0  .4NHASE.4H0  0N.4N  5N-.4NI  0A.4MTA  ,6-4H  /  OtNST  69 

0A7A  riTUE3/  4N  LAT.4N6ST  ,4NTmO  »4N  STA.4HG6  0.4N6NSI ,4Ntr  F,  OtNST  70 

14NI6U0.4N  CAH.4HlNAH.4N  -  2.4N  HtH . 4NCtN 7 . 7»4H  /  OtNST  71 

OATA  13/  -3.546666,  -2.435555.  -1.324444.  -0.435555*  -0.J24444.  OtNST  72 

A  -0.257777,  -0.235555*  -0.224444*  -0.220000*  -0.215555*  OtNST  73 

A  -0.213333*  -0.206666*  -0. 202222*  -0.191111*  -0.180000*  OtNST  74 

A  -0.175555*  -0.171111.  -0.164444.  -0.157777*  -0.146666*  OtNST  75 

X  -0.124444,  -0.113333*  -0.102222*  -0.091111*  -0.080000*  OtNST  76 

X  -0.068888*  -0.057777*  -0.035555*  -0.013333*  -0.002222*  OtNST  77 

X  0.008866*  0.015555*  0.019999*  0.024444*  0.031111*  OtNST  78 

A  0.042222*  0.053333*  0.064444*  0.075555*  0.120009.  OtNST  79 

X  0.16444a,  0.2311)1.  0.342222*  0.453333*  0.67S555*  OtNST  80 

X  0.697777*  1.342222*  2*006686*  2.453333*  3.120000/  OtNST  81 

OATA  23/  0.00*  0.00*  0.00*  0.00*  0.00,  0.00*  0.00*  0*02*  0.06*  OtNST  82 

X  0.13*  .165*  0.S5*  0.67.  1.50*  1*97*  2.04*  2.06*  2.04*  OtNST  83 

X  1.98*  1.65*  1.50*  1.27.  1.15*  1*10*  1.07*  0.98*  0.88*  OtNST  84 

X  0.67*  0*47*  0.34.  0.16*  0.09*  0*05*  0.03*  0.01*  0.00*  OtNST  65 

X  0.00*  0*00*  0.00*  0.00*  0.00*  0*00*  0.00*  0.00*  0.00*  OtNST  66 

X  0.00*  0.00*  0.00*  0.00*  0.00/  OtNST  87 

OATA  03/  2*. 2914226-02*-. 14S711E-01.  .6192726-01 *-.9981226*00*  OtNST  68 

X  .8220106*01.-. 3876646*02*  .1194156*04,  .1457806*04,  .208/126*04*  OtNST  89 

X  .8661666*04,  . 2673196*04, -. 3370966*04,  . 1074166*03*-. 4834706*04*  U6NST  90 

X-. 2268116*04*-. 1280326*04. -.9701 716*03. -.2389906*03*-. 1111266*03*  OtNST  91 

X-. 6406236*03*  .1392996*04,  .4146406*03.  .3504416*03*-. 8444066*03*  06NST  92 

X  .1111856*03*-. 6633636*02*  .6 l 9 1626*02.-. 1 1 98286*03*-. 9028606*03*  OtNST  93 

X  .1301266*04*-. 3053366*03*  . 1599786*04,-. 188 1 766*02*  .346199t*03«  OtNST  94 

X  .3745166*02*-* 1000626*02*  .2573506*0 1 *-.2877446*00*  .7598316-01*  OtNST  95 

X-. 1618846-01  *  . 3305966-02*-. 866024fVJ*  . 1581 J56-03.-.41 39566-04,  OtNST  96 

X  . 7446516-05.-. 1641 756-05*  .5081616-06,-. 78 l 7866-0 7 .-. 781 7866-07/  OtNST  9T 

OATA  riTCE8/4H  ,4HH(jN  .<.nU2  *4H1.6  .4N56C  .4NHIOH*  SOU  7  7  C  T 1  25 
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*  amt  st.amage  .ameast.am  4Nu.4mtEsr.4H  «al.*hl  AN.4MALYr.4Mic  •  soutycti  26 

A  4H  »4M  .4N  »4H  .4H  SOQ77CY 1  27 

DATA  TM8/. 20345/. M8/22/.AM8/. 0093/.  M86/22/  SOU77CY1  28 

DATA  YA/*l«8»*li7t"li6tal«9**li4t*l«J«*l*2i"liifl«0f*»7«««6»««b4  S0O77CY1  29 


X  *•<!•  •  J  /  / 

S00TTCY1 

30 

SOOT 7CY1 

31 

A  1  (0t  »  /  «6*  ^  »  N  1U«4»  i  Ji*^/ 

S0077CYI 

32 

It  A]  A  *«*/•*•♦•  l  •  9*-X  •  f  «- 1  #b*  - 1  •*  8-1  «J  ♦- i  ,£*- 1  .  i  *- i  ,*  f  * 

SOOTTCY1 

33 

A  *  •  6  •  —  •  b9,“*4*  —  •  J  •  —  j6/ 

S0OTTCY1 

34 

U  A I  A  Xd4/U*tu«»»bi«4*  i  •  i  *  1  •  1  *  »ii*  •  1  •  •  *4  •  •  *99*1  *bf  *1  •  f  •  T  * 

S0UT7CY1 

3S 

A  7  *o«  lu«/ 

SOU77CY1 

36 

0 A I  A  r 1 TLE9/4H  .4HMUN  ,  .Him  . «Ht.a  .4HSEC  .4HLEFI. 

S0077CYI 

37 

A  »H  5T.4MA6E  .  »H£Air.-*M  anu.-haES  T  .4H  *AL.»ml  AN.4MALY  t  .4h1C  « 

S0U7TCY1 

38 

A  4M  •  **«  f4r!  t«rt  «4H 

SOOT  TOY  1 

39 

DATA  r*9/ .20345/ .M9/ 16/ .AM*/ .0 1/ .  M9«/19/ 

S0077CY1 

40 

OA T A  f 9/*l  •  /b  9  •  l  •  lb9* »d6«*i64«*ib^ 9*«429*»  JA«a»2f 

SOU77CY1 

A 1 

A  *•  *li8*  *  16« 

SOU77CY1 

42 

OA  T  A  Z9/**«  J*  «b  *•  l  •  Ob  *- 1  •3«a»«6tl»49i*7«  l  •  JO*  0  •  9 

SOU77CYI 

43 

A  •27fit4f5«i/ 

SOU77CY1 

44 

DATA  Y92/-1  >Y0t«tlS2i*U4«ali26i*l>2iaa4t«*<66ia(M«aiJYi*iji 

SOU77CY1 

45 

X  a«2f#*l**«Ud*8U^MiJ!)i8l«8 J2 1  •  44 «  *64/ 

SOU77CY1 

46 

OAT  A  29d/*#3* •2t«99i*/ »l#b» « Jo »•» t *»55 « 1«U3*2* J92itt99 

SOU77CY1 

47 

A  •  40  * • 3  * • 0 • £ • 0 * J • 1 • 0 • 0/ 

SOU77CY1 

48 

C' 

OtrtSY 

98 

OAT  A  8CANK/4N 

UENSY 

99 

H  *  YL £N 

OENSY 

100 

XMACM*4.56 

OENSY 

101 

LAG*FLAG».l 

OENSY 

102 

l»ur  »  NPX»NPY 

OENSY 

103 

00  1629  12E«0*1.muT 

OENSY 

104 

1629  PI  12EM0)  *  Q. 

OENSY 

10S 

c 

CALL  2EP0IPI1) .P(M(j?) ) 

OENSY 

106 

LL«l 

OENSY 

107 

IF  (LAG.EU.5.09.LAG.E'.l.7.UM.LAO.t0.a.0N.LA6.eQ.9>  LL*-(NSYM-2) 

SU077CY1 

49 

60  ro  (100. 200. 300. *00.500. 2.500. BOO. 901.1001.1QQ1) .LAG 

S0077CY 1 

SO 

c 

CONTOUWEO  SluE*ALL  DENSITY  FltuU 

OENSY 

no 

# 

100  TM(  1 ) *TH2*SGMT I (AM2**2-1.)/ (AMACn4*2-1.) ) 

OENSY 

in 

XMULG*(AM2*«2/S(jHT (4M2**2-1.I )/ (AMACh**2/SUMT  <XMACN4*2-l.) > 

OENSY 

112 

XMULT(l)  «  i./XMULG 

OENSY 

113 

XLS(1)*0.0 

OENSY 

114 

MU)  ■  46 

OENSY 

ns 

OO  110  1*1. 45 

OENSY 

116 

Y 1 1  • 1) *Y2<  11 

OENSY 

117 

2(1.11*22(1) 

OENSY 

118 

no  o< m> *02<i> 

OENSY 

119 

OO  120  1*1.20 

OENSY 

120 

120  UrL£(l>«TITLE2<l> 

OENSY 

121 

GO  TO  2 

OENSY 

1 22 

c 

FLAT  S10E*ALL  OENSITY  OlELO 

OENSY 

123 

20 U  TM  ( 1 ) *TM1 *S6MT 1  I  AMI 442-1.)/ (AMACH*42-l . > ) 

OENSY 

124 

AMULG*(AM1**2/Sunr  ( AMl**2-l.)  1  / ( AMALH442/S0H T ( AM ACh*»2- l . >  > 

OENSY 

125 

A MOL  Til)  •  l./AMOLG 

OENSY 

126 

ALS ( 1 ) *0.0 

OENSY 

127 

Mil)  »  SO 

OENSY 

128 

00  210  1*1.60 

OENSY 

129 

Ylt.lt *Y 1(1 

OENSY 

130 

2(1.11*2111) 

OENSY 

131 

210  Oil. 11*0111) 

OENSY 

132 

00  220  1*1.20 

OENSY 

133 

220  T 1 TLt ( I 1 *T 1 TLfc 1(1) 

OENSY 

134 

GO  TO  2 

OENSY 

135 

c 

LATEST  AMO  GMEATEST  T«0  STAGE  DENSITY  F1EL0 

OENSY 

136 

JOO  TM(l)  ■  TM3 

OENSY 

137 

ALS 1 1 >  *0.0 

OENSY 

138 

XMULT(l)  ■  AMJ 

OENSY 

139 

HU)  *  Hi 

OENSY 

140 

00  310  I  ■  1.M3 

OENSY 

141 

Yll.l)  *  YJIl) 

OENSY 

142 

2U. 1)  ■  23(1) 

OENSY 

143 

310  0( (.1)  *  03(11 

OENSY 

144 

00  320  1  *  1<20 

OtNST 

IAS 

jcu  rirLEin  iriauii) 

OtNSY 

146 

W  TO  2 

OtNST 

147 

(ANAL 7  T 1CAL  SIOEBALL  KMOUtCTlUN)  •••« 

S0U7  7CT  1 

bl 

boo  if  iflag.lt. a. ubJ  go  ro  au< 

SOU77C7 1 

52 

weao  is.uensoi 

SOU77C7 1 

53 

«Cao  <5 .aon  uiLta 

SOG77CY1 

54 

BUT  FUH8AT(20A4) 

S0077C71 

55 

B02  TM(U  a  THU 

S0077C71 

36 

AS££D*7. 

SOU77C7 l 

57 

ALSU)  ■  0.0 

SOG77CT1 

58 

A8CILI  (  1  )  ■  A88 

S0U77CY1 

59 

8(1)  a  88 

SOU77CY1 

60 

00  810  1*1.88 

S0077CTI 

61 

t < i •  i )  >  rail) 

S0077CT1 

62 

mill  a  Iglll 

SOG77CT1 

63 

810  0(1.1)  a  0.0 

SOW77CT1 

64 

ifill.eo.I)  go  ro  ais 

SOQ77CT1 

65 

TM(2)  a  THB 

SOG77CT1 

66 

ACS (2)  a  0.0 

S0077C7 1 

67 

amuLTU)  a  Ana 

S0O77CT1 

68 

8  12)  a  *8w 

S0077C71 

69 

00  811  1*1 .80* 

S0077CT1 

70 

7(1.2)  a  raa(I) 

S0077CT1 

71 

2(1.2)  a  28a ( 1 ) 

SOU77C71 

72 

811  0(1.2)  a  o.o 

S0077CT1 

73 

BIS  00  d20  1 « 1 .20 

SOQ7  7CY1 

74 

820  TITLE(I)  •  TITL68U) 

SOU77CT1 

75 

GO  TO  2 

S0077C71 

76 

GUI  IF  (FLAG. LU 9. 0b>  GO  TO  904 

S0077CT1 

77 

9£a0  (5.0ENS9I 

•»'  S0077CT1 

78 

8EA0  (5.807)  TIrLL9 

SOU77CY1 

79 

904  rain  a  rnv 

S0077C71 

80 

ASEEO»7. 

S0077CT1 

81 

ALSU)  ■  0.0 

SOU77C71 

82 

AMULT(l)  a  AH9 

SOG77CT1 

83 

MU)  a  89 

S0UTTCY1 

8A 

00  91U  1*1.89 

S0077C71 

85 

tllill  a  T9 ( l 1 

SOU77CT 1 

88 

2(1.1)  a  29(1) 

S0077CY 1 

87 

910  0(1.1)  *  0.0 

SOG77CY1 

88 

IF(LL.EO.l)  GO  TO  91b 

S0077CT 1 

89 

T8i2)  a  189 

SOG77CY1 

90 

ACS (2)  a  0.0 

S0077CY 1 

91 

A80L)(2)  *  AM9 

S0O77CT1 

92 

8(2)  »  890 

S0077CY1 

93 

00  911  1*1. 89a 

S007TCY1 

9A 

T 1 I .2)  *  798 ( I > 

SOU77CY 1 

95 

2(1.2)  »  29a(I) 

S0077CY1 

*6 

911  0(1.2)  *  0.0 

SOU 7  7CY ) 

97 

915  00  920  1*1.20 

SOU77CY1 

98 

920  TlfLtU)  »  riTLtOU) 

SOU77CY1 

.UO  TO  2 

S0O7  7CY1 

loo 

S00  9tA0  (18.987)  (TllLtU)  .1*1.1/) 

OtNSY 

148 

987  FO*8*r  117*4) 

UtNSY 

149 

00  7 bb  1  a  1*3 

OtNSY 

150 

785  r  I  ILL  U7*l  >  «  BLANK 

OtNSY 

151 

989  F088AI  tJHO.a.lb) 

OtNSY 

152 

908  F0M8AI  (2F 10.6. 213.0) 

OtNSY 

153 

2  00  So3  L  *  l.LL 

OtNSY 

154 

IF  (LAG.nC .5. ANO.LAG.NL . 7 i 

Go  To  222 

OtNSY 

155 

w£  AO  UN. 989)  ALb(L).  A80L 1  (L)  *  18(C).  8(C) 

OtNSY 

156 

MMM  •  M<L) 

OtNSY 

157 

00  502  l  »  1.888 

OtNSY 

158 

502  WtAO  UN. 988)  7(1. C) .2(1.0 .0(1. C> 

OtNSY 

159 

C  C088or£  UMASt  OlbrOHUON  In  StoNtNT 

OtNSY 

160 

222  *8ITE(8.b8l  ( T I (CE ( 1) . 1*1 .20) 

OtNSY 

161 

58  FOKNAf U81.2A.20A4) 

OtNSY 

162 

»H1T£(6.J)  8h0»  8. 

flag. als (o .anoltid . inil) .nil) 

06NSY 

163 

3  F088AT (5880  980 

8  FLAG  ALS  A8UL  r  f  8 

UtNSY 

164 

18  /E10.J.5A.F  7.J.7A.F5.  1.2I-8.J.FB.B.  U/l/A.  IMS.11A.880EL980.8A. 

UtNSY 

165 

78 


nr  n 


2HHC0tFFIcitNT  ) 

MMM  a  MIL) 

an l Tfc (6.*)  ITIliU(^ttiUiull(l)il*l  »HMH) 

*  FOHMAI  (10A.Fl0.5»9A«FlU.b.*Atfcl4«/) 

903  «HOCL(U«-«m)««iOC»ZSLAb«AMtJLf  (L) 

OAaALEN/NPA 
OYaYLfcN/NPY/ (N9YM*1) 

U«0 

00  10  I»l,NPY 
SaQYMl-.S) 

00  10  Jat.NPA 
AaOX4(J-.9) 

12*12*1 

IFILAO  .EQ.  S.OH.LAG.fcd.9) CALL  LlNTfcxP  ( X  .  9*0)*) 

C  IM  A.GT  .20.  >  «HJ  r£  (6.2051)  X.9.UP.  iz 

2051  FOHMAT  ( 10A.9HX  S  UP  Ui  3  (SA  .t  15. 7)  .  19) 

IF  (LAS.LT.d)  CALL  H05N  I  At  9.uP ) 

10  P(I2  )*0F 

SO  To  1000 

««  "OOlFltO  1/14/ 17  Faa  TO  »£Au  2  0CN9ITY  FlfcLOS  FHON  01SK 
FLAG«10.  HEADS  F IfcLO  FH OH  uNH  JO 
FLAOall.  wfcAOS  F  IfcLO  FHOM  6nH  J1 
loot  IF (LAU.fcU. 10) 10fcN9*30 
IF (LAU.fcO.il) lofcNSaJl 

C  )  ) 

NUB  *  MU  T 
NOoSa  nuo 

IF (NbYM.Nfc.O) »H1 Tfc (6. 1 l J) 

113  FONMAHSA. aJHfcMMUH-OfcNSl  I  r  F  IfcLO  CFiObtN  MOT  COMMtNSUHATfc  t 
A45rialIH  iYMMtTHIC  NtbM.  PHuGHAM  b  I  OH  fcNCUUN  TfcHfcO  •/) 
IF(NS»M.Mfc.o)STOH 
IF (NobH.wfc.MOaiaMirtl6.il/) 

IF  (Noaa.Nfc.Moai  si  of* 

112  FohMA  r  (5a.  JVHCUHMtNt  Nfcbri  mT9  NOf  IM  A(jMtfcMfc.N(  aira 
A.AUHbroMfcO  OfcNbllY  VALOti.MHOUMAM  b  )  UP  IN  DfcNb I  I Y .  PLZ 
Y.llMCMfeCR  iNMOt  /  ) 

MMAbt  *(Z5LA«/ 106. J2) 

MtAO(  lOfcMb)  t  P  (  12)  •  U»l.NU00) 

C  ((  Mfcotbto  ON  OH  BfcFONt  12/7/ /a  F.AOAMfcA 
HfcAO ( IDfcMS) AVOPO 
MfcalNO  lUfcNS 
«Hi  Tt  (6.  I'.abl  AVOFO 

lbaa  FumHAIUAH  AVUPI)  in  AHfcA  OF  CONVtA  M1HK0H  a  .tlb.6) 

00  099  A*  a  l.NObU 
P(AA>  a(F(AK)  -AVOPO)*  PHAbfc 
995  CONTINUE 

“HI ffc (6. 1 14 ) lUtNb.MOBB 

Ilk  FOHMAI (9A,2»H0fcNbl TY  F IfcLO  HfcAO  FHyM  ON l I  .IJl/M.  .19. 

AHUM  TS  HfcAO  /) 

1000  CONT lNUfc 

C  — PLOTPlau.  FOH  NO  PLOTTING  M01N1S 

C  ••PLOTPI*!.  FOM  PLOTTING  POlMlb  lit  A  OlH.  TMHU  CfcNTfcH  OF  CAVITY 
C  — PLOTPTaJ.  FOH  PLOTTING  POINTS  IN  Y  OlH,  TNHg  CfcNTfcH  OF  GfcAM 
PLOTPTao. 

IF (PLOTPI .fcO.O.)  GO  TO  12J« 

■HI Tfc (6. 19a 7) 

l>«7  FuHNAT (//20A. 19NPL0T I ING  POINTS 

Ulao 

AOAaALfcN/NPA 
AOYaYLfcN/NPY/ (NSYN. I ) 

0O  12J5  lal.NPY 
YYY*AOY* ( I-.9) 

00  12J9  Jal.NPA 
XXA*AOX*( J-.9) 

111*111*1 

IF (PLOTPI .fcu.l.)  GO  TO  1V«9 

IF ( AAA.Lfc .5.O.0H. AXA.GC.9.0 / > GO  TO  12J5 

GO  TO  loog 

1000  IF(YYY.Lfc.5 . 6.0H . Y Y  Y . Gfc .9.7) GO  TO  IZJ9 
1000  #H 1 Tfc (6. J656) AAA. YYY «P (III) 

J*56  FOHNAT ( lOAt 1 7HA  .  Y  .  OPU/bfcG  . J (fcl9. 7 .9A) ) 


OfcNSY 

166 

OtNSY 

167 

OfcNSY 

16b 

OfcNSY 

169 

OfcNSY 

170 

OtNSY 

171 

OfcNSY 

172 

OfcNSY 

173 

OfcNSY 

174 

OfcNSY 

175 

OfcNSY 

176 

OfcNSY 

177 

OtNSY 

1  7« 

SOU77CY1 

101 

SO077CY1 

102 

SOU77CY1 

103 

90G77CY1 

104 

OfcNSY 

iao 

OfcNSY 

101 

SOU77CY1 

105 

S007TCY1 

106 

90077CY 1 

107 

SOU77CY1 

ioa 

90077CY 1 

109 

90O/7CY 1 

110 

90U77CY1 

111 

90077CY1 

112 

90077CY  1 

11J 

9007  7CY  1 

114 

bOO 7  7  C  Y 1 

119 

90U77CY1 

116 

90077CY1 

117 

SOU77CYI 

l  la 

90U77CY1 

119 

SOU  7  7CY 1 

120 

90U77CY1 

121 

90077CY1 

122 

bOu77CYl 

12J 

bOU77CYl 

124 

90077CY1 

129 

bOO  7  7  C  Y 1 

126 

90U77CY1 

127 

bOU77CY 1 

12a 

b0077CYl 

129 

90O77CY1 

130 

bOO  7  7C Y  1 

131 

90U77CY1 

132 

bOU77CY 1 

133 

90077CY1 

134 

SOU77CY1 

135 

S007  7CY1 

136 

90077CY1 

137 

9007 7CY1 

13a 

S0077CY1 

139 

50U77CY1 

140 

90U77CY1 

141 

S0077CY1 

142 

S0077CY 1 ' 

14J 

9007 7CYI 

144 

9007 7CY1 

145 

9007 7CYI 

146 

9007 7CY1 

147 

SOU77CY1 

14a 

9007 7CY1 

149 

SOU77CY1 

ISO 

90077CY 1 

191 

90O77CY ] 

192 

S0077CY l 

153 

90U77CY1 

154 

90077CY1 

156 

9007  7CYI 

156 

S0077CY1 

197 

79 


1235 

CONTINUE 

S0UTTCY1 

ise 

c  n 

SOUTTCY 1 

ISO 

UJ6 

continue 

sourrcYi 

160 

C  UNA*  PiCfUMC  Of  PHASE  sniff  PEN  SEuMfiNT 

OENSY 

104 

PMAXaP' 1> 

OENSY 

105 

PMlNaPMAA 

UENSY 

106 

00  SO  I»1 .HOT 

OENSY 

107 

PH1N  *  ANIN1 IPMIN,P(  i  )) 

OENSY 

100 

so 

PMAA  a  AHAA1 (PNAA.Pl  1  )l 

OENSY 

10* 

OP  apN A*  —PH 1 N 

OENSY 

1*0 

IF  ILAG.LT. 10)  «Hl f E  (6.91)  TITLE 

S0077CY1 

161 

If  tLAG.GE.lU)  AMITE  100263) 

50U77CY1 

162 

*163 

fOMMAT I  1 H 1 ) 

S0077CY 1 

163 

51 

F UNMAT  ( ini  .29A.20A*) 

OENSY 

1*2 

1MIC«1 

OENSY 

1*3 

If  (NP*.l»T.i2S)  1MIE*< 

UENSY 

196 

OO  52  J*1.NPY 

UENSY 

19S 

A Ja  (NPY-U)  •  NPA 

UENSY 

1*6 

00  53  lai.NPA.lMTE 

UENSY 

1*7 

*3 

IP(I)alO.O*U.O-tP(  1*KJ)-Pm1N)/UP> 

OENSY 

1*0 

52 

■Ml Tb 16.94)  tlPdl  .  lal.NP*.  IMIt) 

OENSY 

1»* 

*4 

K/mMAT  (2A.  1 301  i ) 

OENSY 

200 

■Ml TE ( A .*5)  PH1N.PMAA.UP 

OENSY 

201 

*5 

FumHAI  I  1  JHliMlN  VALUE  15.E1*. /OA.12HMAA  VALUE  15.E19.T.9A. 

OENSY 

202 

137H  NOHMAL121NG  f  AC T OH  h  OH  AbUVt  PLO  [ 

IS  .E19.T) 

UENSY 

203 

METOMN 

UtNSY 

20* 

C  *1.5-1  HOO  6  N022LE*  SPLINE  Out*  fNON  ULt 

1* 

OENSY 

205 

»oo 

MEAOUf  .1*00)  TILE 

UENSY 

206 

1*00 

FOMHAT ( 12 A*) 

OENSY 

207 

MEAOUf  .1*01)  N*.M* 

OENSY 

200 

1*01 

fOMMAT ( lbl*l 

OENSY 

20* 

MEAOUF. 1*02)  a««Y*.2*.C* 

OENSY 

210 

1*U2 

FOmHAT  IStlb.bl 

OENSY 

211 

00  <01  1*1.12 

UENSY 

212 

*01 

I  l  TLE ( I ) a  T 1LE ( 1 ) 

OENSY 

213 

00  *02  1*13.20 

OENSY 

214 

*02 

ri  TLt  <  I )  *«LAnM 

OENSY 

215 

**M*< 1) 

OENSY 

216 

H*Y*<l.«)-r*U.l) 

OENSY 

217 

MOCL  a— MrtO*G0C*25LAb 

UENSY 

210 

OAaALEN/NP* 

OENSY 

219 

OYaYLEN/ (NPY»tNSYM*l 1  I 

OENSY 

220 

00  * 1 0  lal.NPX 

OENSY 

221 

*aOA*«l-.5l 

OENSY 

222 

00  *10  J»1  ..vPY 

OENSY 

223 

S«  0Y*U-.5I  -  (YLEN-«J.I  /  2. 

OENSY 

22* 

CALL  M0SN4< A.S.OP) 

UENSY 

225 

*10 

P  C l ♦ 1 J— l ) *NP A )  a  OP 

OENSY 

226 

GO  TO  10O0 

SOU77CY1 

164 

ENO 

OENSY 

220 

10.  SUBROUTINE  FOURT 


a.  Purpose  —  Subroutine  FOURT  performs  a  forward  or  backward  Fast 
Fourier  Transform  on  any  multidimensional  complex  array  by  efficiently  per¬ 
forming  the  summation. 
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±27rimn/N 

G 


(39] 


80 


The  transform  pair  that  needs  to  be  evaluated  is 


and 


F(s) 


f(x) 


f(x)e 


2irixs 


dx 


F(s)e 


-2irixs 


ds 


f4h) 


(41) 


To  digitally  evaluate  an  integral,  the  continuous  form  of  an  integral  must 
be  changed  to  its  discrete  form.  For  example,  * 


G  = 


gfx)  dx  =s*-lim 
M-kd 


(42) 


b.  Relevant  formalism  --  Assume  that  all  the  intervals,  AXn,  are 
chosen  to  be  equal  and  that  the  infinite  sum  can  be  approximated  by  a  finite 
sum.  Then, 


(45) 


or 


\'-l 

G  »  AX 

n*0 


dx 


(44) 


SI 


To  evaluate  Equations  (40)  and  (41)  by  the  approximate  form  (Eq.  (44)), 
assume  that  the  function  f(x)  is  spatially  bounded  in  0  <x  <  2L  and  that  it 
is  a  band- limited  function  so  that  F(s)  is  confined  in  the  region  -B<S<_B.  To 
perform  either  a  backward  or  forward  Fourier  transform,  the  functions  f  and  F 
should  differ  in  form  only  by  the  sign  of  the  exponent.  Therefore,  the  prop¬ 
erties  of  F  must  be  evaluated  so  that  its  region  can  be  changed  to  0<S<2B. 
This  is  easily  done  by  replicating  the  function  f(x)  so  that  it  is  periodic 
with  period  2L.  This  will  not  change  the  value  of  f  in  the  region  of  interest 
and,  by  proper  choice  of  N,  will  return  the  desired  function  F. 


A  sampled  function,  f  ,  can  be  analytically  represented  by  a  Dirac  delta 
function: 


N-i 


f 

n 


2L 

5  (x-nAx)  with  Ax  =  — * 

N 


(45) 


A  replicated  function  can  be  represented  by  a  convolution: 


n=-°° 


Therefore,  a  sampled  and  replicated  function  is  represented  by: 


(46) 


t  (x)  *  Xj  5  (x-nAx)  #^5(x-nNAx) 


(47) 


A  A 

The  Fourier  Transform  F(s)  of  f(x)  is 


N-l 


'F  (s)  »  F  jff*  F  | £  f„  5  (x-nAx)  F  {  T]  5  (x-nNAx) 

( n*0  ' 


rm«-» 


(48) 


by  the  convolution  theorem.  Since 


(49) 


2  *(x-na)=i  £ 


»  2»in— 


n=-oo 


n»-» 


one  finds , 


„  N- 1  2risndx 
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00 
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(30) 


Rearranged  this  gives 
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ma-®  '  ”  n=u 


V- 1  2rimn/N 
e 


(51) 


Recalling  Equations  (-10*)  and  (44)  ,  define 


F  *  Ax  y  fe  =  F  M 

n  n  n+N 

n=0 


2*inm/N 


(52) 


Then 


«p 

E1 

m=-°° 


f  <s)  V^l2^F»  s(s-n4, 


(53) 


Since  F  *  F  ^  ,  one  can  rewrite  the  above  as  a  replication  for  every  N 
tn  m>n 

point. 


f  (S) 


srn72iiF»  s(’-.4  L  4'  4) 

m*0  n*-»  '  ' 


(54) 


Therefore,  by  replicating  f(x)  with  period  2L,  F  is  periodic  with  period 

l/ax. 


83 


So  by  choosing  N  so  that  N/2L>2B,  rewrite  the  limits  for  F  as  0<S<_B. 
Since  N 

J 1,  n  =  k 


N-l 

.  _  1  2irim(n-k)/n 

5nk  lL£ 
m*0 


(55) 


0,  n  i  k 


invert  (52)  to  find 

N-l 

f  _  1  ^  p  -2ffimn/N 

n  "  NA  xiJ  m 
m=0 


(56) 


Thus,  choosing  As  =  1/NAx,  the  transform  pair  becomes 


F 
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-2:rimn/N 

e 


(57) 


f 

n 


c~2  irimn/N 


(AxAs  =  -i-) 


(58) 


where,  with  N/2L  >_  2B, 

sents  f(x)  for  0<x  <2L 
—  n— 


F  represents  F(s)  for  0<S  <2B  (S 
m  r  v  -  m—  m 

(x  *  nAx) . 
n 


=  mAs) 


and  f  reore- 
n 


The  transform  pair  f  and  F  are  now  in  a  form  usable  by  the  Fast 
r  n  m 

Fourier  Transform  (FFT) .  The  FFT  evaluates  the  sum 
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N-l 
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k»0 


e*2irirk/N 


(59) 
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Following  Higgins  (Ref.'  90,  this  sum  can  be  split  into  two  sums  (choosing  the 
+  sign  in  the  exponent) : 
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_  V"*  „  gffirk/N  + 

lr  "  i—i  k 

£  Xkr2ffirk/N 

(60) 

k=0 

k»0 

(keven) 

(kodd) 

k  *  0,  1,  3,  5,  ...  j  *  1  (61) 


then 
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“k€ 


(62) 


Letting 
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4jrirk/N 
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and 


k*0 


_  4fllrk/N 
* 


(65) 


(64) 


9.  Wiggins,  R.J. ,  "Fast  Fourier  Transform:  An  Introduction  With  Some 
Minicomputer  Experiments,"  AJP,  44,  1976. 
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A  can  be  written 
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Ar 


Br  + 


r  27Tir/N 
Lr« 


(65) 


Define 


«  =  e2fli/N 


(66) 


Then, 
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B  +  C  + 
r  r 


(wn)r 


By  letting  r  -*■  r  +  M/2: 


(67) 


(68) 


Therefore,  At  can  be  evaluated  by  doing  two  sums,  each  containing  N/2  terms. 

However,  these  sums  need  to  be  performed  for  only  half  the  r's  ^CKrclJ  j  since 

A  +  M/2  is  found  using  the  two  sums  used  in  the  evaluation  of  A  Bv 
r  r 

initially  forcing  N  to  be  a  power  of  two  by  completing  the  array  to  be 
transformed  with  zeros,  continue  to  divide  each  successful  sum  into  two, 
until  a  "stun"  is  reduced  to  just  one  number,  taking  care  to  note  that  N 
changes  with  each  division.  When  using  the  FFT,  care  must  be  taken  to  scale 
the  output  correctly  since  the  FFT  evaluates  only  sums  of  the  form 


A 


r 


n=0 


£i2irinr/N 


(69) 


and  as  can  be  seen  from  Equations  (58)  the  Fourier  Transforms  contain  Ax  or 
As:  If  only  forward  then  backward  transforming  is  done,  it  is  sufficient  to 
divide  the  final  answer  by  M  for  each  dimension  as  is  indicated  by  the  last 
part  of  Equation  (58) . 
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Note  that  when  the  data  are  returned  from  the  FFT  the  first  data  point 
is  either  the  x  *  0  or  the  s  *  0  point.  To  see  the  actual  frequency  space 
pictures,  assume  a  two-dimensionai  case.  An  isointensity  printer  plot  of  FFT 
output  in  frequency  space  might  look  like  that  shown  in  Figure  22. 


2B 


figure  22.  Example  of  isointensity  printer  olot  of  FFT 
outnut  in  frequency  soace. 

To  see  the  ~B  to  +B  version,  the  adjacent  cells  shown  in  Figure  23  must 
be  added  to  Figure  22. 

The  subroutine  FOURT  computer  printouts  follow. 


Figure  23.  -B  to  +B  version  of  isointensity  printer  plot 
of  FFT  output  in  frequency  space. 
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SUBROUTINE  FOURT  76/176  0PT*1  FIN  4.6+452 


04/27/79  12.23.47 


SUdHOUUNt  FOUHT  (UATA.NAM.nN.ISIGN) 

FUUHT 

2 

c*«* 

PUUMT 

J 

c 

Tne  cooley-toret  Fast  foumieh  thansfumm  in  usasi  basic  Fomtman 

FUUHT 

4 

c 

TH*NSFOHM<M,R2....)  *  SUMtUAI  A  l  Jl  ,02.  .  ..  )  *£AP  USIGN*2»Pl»SUKT  <-ll 

FUUHT 

6 

c 

•l (J1-D  +  TR1-1 )/NN< 1>«<J2- 

1 ) • <R2«  1 1 /NN (2) .»..))>.  SUMMED  FOH  ALL 

FUUHT 

6 

c 

Jl.  M  BETaEtN  1  ANU  NNU) 

.  J2.  R2  BE ( *EEN  1  ANU  NN(2).  tIC. 

FUUHT 

7 

c 

iMtHE  IS  NO  LIMIT  TO  rut  NUHOtN  OF  SUBSCRIPTS.  UA  T  A  IS  A 

FUUMt 

6 

c 

MULTIDIMENSIONAL  complex  AHHAY  BHUSt  NEAL  ANO  IMAGINARY 

FUUHT 

c 

PARTS  AHE  AOjACENT  in  STuMAGt*  SUCH  as  FORTRAN  IV  PLACES  (HEM. 

FUUHT 

10 

c 

IF  ALL  IMAGINARY  PAH  TS  APE 

AERO  (DATA  AHE  DISGUISED  HEAL).  SET 

FUUHT 

11 

c 

IFOHm  TU  ZERO  TO  CUT  THE  RUNNING  TIME  BY  UP  TU  FOMTY  PEMCENT. 

FOUH  r 

12 

c 

UlMERalSE.  IFOHM  ■  *1.  THE  LENGTHS  UF  ALL  DIMENSIONS  AME 

FUUMl 

13 

c 

STORED  IN  AHHAY  NN,  OF  LENOlM  NOIM,  Ih£Y  MAY  ME  ANY  POSITIVE 

FUUHT 

1* 

c 

INIEOEWS*  THU  Tn£  PROGRAM 

puns  fasten  on  composite  integers,  ano 

FUUHT 

IS 

c 

ESPECIALLY  Fast  ON  NUMBERS 

MICH  IN  FACtUHS  OF  Tau.  1S1GN  IS  *1 

FUUHT 

16 

c 

OH  -1.  IF  A  -1  THANSFUHM 

IS  FULLOBEU  BY  a  *1  ONE  (OH  A  •! 

FUUHT 

IT 

c 

BY  A  -1)  THE  ORIGINAL  DATA 

HEAPPEAH.  MULTIPLIED  BY  NTOT  (aNNlU* 

FUUHT 

18 

c 

NNT2)*...).  THANSFOHM  VALUES  AHE  ALaAYS  COMPLEX.  ANO  AHE  MEtUHNEO 

FUUHT 

19 

c 

IN  AHHAY  DATA.  HEPLACING  1  HE  INPUT.  IN  AUDITION.  IF  ALL 

FUUHT 

20 

c 

DIMENSIONS  AhE  NUT  PUbEMS 

UF  I aO.  AHHAY  aOMK  MUST  BE  SUPPLIED. 

FUUHT 

21 

c 

complex  of  length  euual  ru 

THE  LAHGEST  NUN  2**K  DIMENSION. 

FUUHT 

22 

c 

OTHEHPISE.  HtPLACE  BOHR  BY 

2EHO  IN  the  CALLING  SEQUENCE. 

FUUHT 

23 

c 

NOHMAL  FOHTHAN  DATA  UHOEMImG  IS  EXPECTED.  F IHST  SUBSCHIPT  VARYING 

Fount 

2* 

c 

FASTEST.  ALL  SUBSCH1PTS  BEGIN  AT  ONE. 

FUUHT 

25 

LEVEL  2.  DATA 

FUUHT 

26 

DIMENSION  OATAINAHl .NNT2J . 

1FALT ( 32) .aOMK I J00) 

FUUHT 

27 

NUlMaE 

FUUHT 

2B 

IFOHM*. 1 

FUUHT 

29 

■1*1.00 

FUUHT 

JO 

■H*l ,00 

FUUHT 

31 

HSTPRal.UO 

FUUHT 

J2 

VSTPI*1.00 

FOUH  I 

33 

r »op i *6 .2a j I db Jo f 

FOUH  T 

JA 

IF(N0IM-l)920.l,l 

FOUHT 

35 

l 

ntot«2 

FUUHT. 

J6 

DU  2  lOIMal.NUlM 

FOUHT 

37 

IF (NN(IUlM) ) 920.920.2 

FUUHT 

38 

i 

NTuT*NTOT »NN 1 IDIM) 

FUUHT 

39 

NP1*2 

FOUHT 

40 

00  010  IUIM*1.N0IM 

FOUHT 

*1 

NaNNl 10IM) 

FOUHT 

42 

NH£sfO*l*N 

FOUHT 

•3 

IF1N-1)920.9u0,5 

FOUHT 

44 

5 

N«W 

FOUHT 

45 

N  T  «0“NP 1 

FOUHT 

46 

IF*1 

FOUHT 

47 

IOlv*2 

FOUHT 

48 

10 

luUOTaM/lOlV 

FUUHT 

49 

IHEMaM-IOIV«lOUOI 

Fount 

50 

iFtiouor-ioivtso.u.ii 

FUUHT 

SI 

11 

IF IIHEMI20.12.2U 

FOUHT 

S2 

12 

N  T  bO>n  f  VO»n  r  aO 

FOUHT 

S3 

MalouUT 

FOURT 

54 

GO  TO  10 

FOUHT 

S5 

20 

lUtVaj 

FOUHT 

56 

JO 

lUUOTaM/ 10 1 V 

FUUHT 

57 

lHEM*M-iuiv»iQuur 

FOUHT 

58 

IF <ljgur-ljiv)6U.Ji, Jl 

FUUHT 

59 

31 

1FUHEMIA0.J2.40 

FOUHT 

60 

32 

IF  ACT ( IF) alulv 

FUUHT 

61 

IF*IF.| 

FUUHT 

62 

MalOUUT 

FUUHT 

63 

GO  TO  30 

FOUR) 

64 

*0 

IUlVaiUIV«2 

FOUHT 

65 

GO  TO  30 

FOUNT 

66 

so 

IF ( IHEMI6U.Si.GU 

FUUHT 

67 

SI 

NTaQanTau.NtaO 

FUUHT 

66 

GO  TO  TO 

FOUHT 

6* 
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60  IFaCTUFIbw 

70  NU»2aNNi*(»<N2/NlaOI 
lCASt«l 

IF<lUIM-*>  71 .9U.90 

7 1  IF  ( IFORMI  72.  72.90 

72  ICAS6.-2 

If UUIFI-i)  73.73.90 

73  ICAStaJ 

If  (N  f  aO-«<N  U  90  .  91) .  7A 
7*  ICASfc** 

Nr*o««r»o/2 

N«N/2 
N H2ANN2/2 
NtoT«Nror/^ 

I«3 

uo  hu  ja^.Nrur 
OATA ( J) aUATA ( 1 ) 

ao  i«i»* 

90  UNNOaNNt 

If  <ICASE”8> 1 00.9b* 1 00 
9b  HNN6anN0a< l*NNHt»/2> 

100  If  (NTaU-NNn600.600.no 
110  NN2F«Fa*|N2/2 

J«l 

tJO  150  I2«l  ,NP2,NON2 
If  <J-12>  120. 130.13U 
120  UMAAal2»N0N2-2 

UU  125  I la  12 • 1 1MAA.2 
UO  I2b  IJaU,NTOI»N*»2 
JJ«J«I3-12 
TErfHHBOAlAUi) 

TEMP laOA T  A  < 13* 1 1 
OATA<I3J»OATAU3I 

OAT A ( I3« 1 1 *0ATA(JJ*1) 

OAlAlJ3>aTE**»H 

lib  OATA ( J3* 1 1 aT£MP 1 
130  NANN2HF 

lao  If <J«MI IbOtlbOtlAb 
1*5  J*J«* 

MMH/£ 

IF IN-N0N2) 150. 1  AO* lao 

15o  jaj.M 

NOn2  T  »NON2«mOm 2 
1 j  ak«n T au/nn i 

310  If ( 1NAN-2) 150. JJOf 320 
320  IPAMalPAM/a 

00  TO  31U 

330  00  3*0  1 1  a  1  •  1 1 WNO « 2 

00  3A0  JJaU.N0N2.NNl 
00  1A0  K  1  aj 3 1 N I  u  T  «N0N2  T 
K2»K l »NUi*2 

Tbi*F*«aOATA(A2> 

TfcNNl  a(}A  f  A  < A2* l > 

OAT  A  t A2> »OATA (Kl)-rtMoj 
OAT  A 1*2* 1 1 »UA  T A ( A 1  *  1 ) *  rtaKl 
OAT  A  (rt  1 1  aOA  TA  (K 1 )  *  T&NNN 
3A0  UAT  A  (*1  »  l  >  »OAT  A  IM  •  1  >  »TE-H  1 
Jbu  MMAXadO  N2 

360  If  lf«AA-*^»2Kf  1370.600*000 
370  L«AAo*AAU<NUN2r,**AA/*l 
If (MNAA-NQN2) A05.A05.300 
300  THfc  T  Aa-  T AON  1  »f  LOA  I  ( N0N2 )  /F  (.OA  I  ( *»NMAA  I 

If  1 1516NI400.390.390 
390  THETAa-mtTA 

AOO  aMaCOS ( Tot T A1 

aloSlN(TNCIA) 
w5T»Ha.2. •«!•«! 
aS I 0 I aj , *  an*  a I 

A05  UU  570  U«N0N2.l,"IAA.NUN2T 
Nat 

If (NNAA-N0N2) A20.A20.A10 


F  OUST 

70 

fUUHT 

71 

FOUNT 

72 

FOUNT 

73 

FOUNT 

7a 

FOUNT 

7b 

FUUNT 

rt, 

FOUNT 

77 

FOUNT 

76 

FUUNT 

79 

FUUNT 

60 

FOUNT 

61 

FOUNT 

62 

FOUNT 

83 

FUUNT 

8A 

FUUNT 

65 

FUUNT 

66 

FUUNT 

67 

FUUNT 

66 

FUUNT 

69 

FOUNT 

90 

FOUNT 

»l 

FUUNT 

92 

FOUNT 

93 

FOUNT 

9A 

FOUNT 

95 

FUUNT 

96 

FOUNT 

9T 

FUUNT 

96 

FUUNT 

99 

FOUNT 

100 

FOUNT 

101 

FOUNT 

102 

FOUNT 

103 

FOUNT 

10a 

FOUNT 

10b 

FUUNT 

106 

FOUNT 

107 

FOUNT 

106 

FUUNT 

109 

FOUNT 

110 

FOURT 

111 

FUUNT 

112 

FOUNT 

113 

FOUNT 

1  1 A 

f'ount 

115 

FUUNT 

116 

FUUN1 

117 

FOUNT 

116 

FOUNT 

119 

FOUNT 

120 

FUUNT 

121 

FOUNT 

122 

FUUNT 

123 

FOUNT 

12A 

FUUNT 

12b 

FUUNT 

126 

FOUNt 

127 

FOUftt 

126 

FOUNT 

129 

FOUNT 

130 

Fount 

131 

FOUNT 

132 

FOUNT 

133 

FOUNT 

13* 

Fount 

135 

FOURT 

136 

FOURT 

137 

FOUNT 

136 

FOURT 

139 

Fount 

'  1*0 

4io 

a2WBaN«4M-a  1  •<*  I 

FOUNT 

141 

a2ia2.*aN4«l 

FOUNT 

142 

43Naa2N4aM-«2 I4«  1 

Fount 

143 

fount 

144 

*2u 

OU  530  Ilal«llHN6«2 

FOUNT 

145 

00  530  J3atl.N0N2.WNl 

FOUNT 

146 

KMlNaj3*lf>AN*N 

Fount 

147 

IF (MMAA-NUN2) 430.4J0.44U 

FOUNT 

146 

«30 

KNINajJ 

FOUNT 

140 

440 

K0lFatN4N»NMAA 

FOUNT 

150 

450 

KSr 6^44440  IF 

FOUNT 

151 

OU  520  KlaKHlN.MOT.KSTEN 

FOUNT 

152 

42aKl.uO  IF 

FOUNT 

153 

K3«K2«K01F 

FOUNT 

154 

K4aK3»K0IF 

FOUNT 

155 

rF(MMAA-NON2J460.460.460 

FOUNT 

156 

460 

OlHaOATAIKl)  *0*14(42) 

FOUNT 

157 

Uli*OAT  A (K  t * l >  *OATA <K2* 1 ) 

FOUNT 

156 

U2Na0ATAIK3)*0ATA(K4) 

FOUNT 

159 

u2laUAT  A  143*1 ) *0A1 A (44*1 > 

FOUNT 

160 

U3M40ATA IK  I ) — OA  7A  <K2> 

FOUNT 

161 

U3 1 »0A T  A  IK  1 ♦ 1 ) — OAT  A (K2* 1 > 

FOUNT 

162 

IF  US IGM  4  70.4/6.4/5 

FOUNT 

163 

470 

U4NaOA  T  A l K3* 1 J -OA  T  A (K4* 1 ) 

Fount 

164 

04 1*0 AT  A (K4) — OA 1  A  (K J) 

FOUNT 

165 

|>U  TO  510 

fount 

166 

475 

U4N»UA T  A (K4* 1 ) -OA  T  A (KJ* 1 ) 

Fount 

167 

04 I au  A  V  A l K  3 ) — U A  T  A  ( K  4 ) 

FOUNT 

166 

SO  TO  51U 

FOUNT 

169 

*au 

T 2n*42W*U4 T  A IKO -«2l*UA  t  A (42* 1) 

Fount 

170 

r21aw2H*UATA(K2*U  *«2I*UAI A(K2) 

FOUNT 

171 

T  JWa»x*t)ATA  (K3)  -» I*OAT  A  (K  J*  1 1 

FOUNT 

172 

T  J1 a.H*UA T  A  1 K J* i 1  *a 1 #U A  T  A (4jl 

FOUMI 

U3 

T4MaMJM4UATA<K4l -aji^UAT A  1*4*11 

FOUNT 

174 

1 4 1 aa  JH*UA 1 A  * K4* l ) *aJl *0 A  1  ft  I K4) 

FOUNT 

l  75 

0 1H*0A T  A  <4 1 ) ♦ T2H 

FOUNT 

1  76 

U 1 1 ■() A Ta(K1*1)  *T2l 

FOUNT 

177 

02H» I JH* I4W 

FOUNT 

176 

U21af 31* 141 

FOUMI 

1  79 

U  JN*OA  T  A (4 1 )  —  f  2N 

FOUNT 

160 

UJl«UA/A(Ki*U-(21 

munr 

161 

IF  (  1510M  aUU.auUOUU 

FOUNT 

162 

*9U 

U4War Jl-l4l 

FOUNT 

163 

04 1 A  T 4M— 1 JM 

FOUNT 

164 

ijO  TO  5 1 U 

FOUNT 

165 

50o 

04Mal4l - f  31 

FOUNT 

166 

041a| JH-I4M 

FOUNT 

167 

9lO 

OAT A (K 1 1 »U IH*U2N 

Fount 

166 

OAl A(Kl*U ao 11*021 

FOUNT 

169 

0ATA(K2) »0JH*04M 

FOUNT 

190 

OA  T A (K2*l ) *0J I *04 I 

FOUNT 

191 

OA!A(KJ> 401M-02H 

FOUNT 

192 

OA 1  A (K3* 1 1 >01 1-021 

FOUNT 

193 

OAT  A (44 ) aoJM-OAM 

FOUNT 

194 

MU 

OAT  A (44*1 1 auj 1—041 

FOUNT 

195 

KMINaa* (KNIN-JJ) *JJ 

FOUNT 

196 

KOlFaKSTtF 

FOUNT 

197 

IF  IK01F-NN2)  4SU.5JO.bJ0 

FOUNT 

196 

MO 

COM  l  WOK 

FOUNT 

199 

NANNAA-M 

FOUNT 

200 

IF  1  Ial0M540.55U.550 

FOUNT 

201 

54u 

TtHNHaaN 

FOUNT 

202 

.Ha-. 1 

FOUNT 

203 

ala-TtNNN 

FOUNT 

204 

30  TO  560 

FOUNT 

205 

Mo 

TEnNHaaN 

FOUNT 

206 

aNaai 

FOUNT 

207 

alaTEMMM 

FOUNT 

206 

MU 

IF  (M-1.MAAI  505. 569. 410 

FOUNT 

209 

569 

TEhNMaaN 

FOUNT 

210 

aMaAH4A5INN-aI*aSTNl*aN 

FOUNT 

211 

90 


b7g 

alaaiaaSlPW* IfeMNNaaSIHltal 

FOUNT 

212 

INAflaJ-lNAN 

FOUNT 

213 

MMaXsMMAA »MMAX 

FOUNT 

214 

bO  TO  360 

FOUNT 

21b 

60« 

IF  INfaO-'MPi)  odb<  /Otl<  /UU 

FOUNT 

21b 

60b 

IFNIbnon* 

FOUNT 

217 

lfl 

FOUNT 

2ia 

Nt»l«F  aNNl/2 

FOUNT 

219 

bln 

lF*»2«IF»»l/lFACriIFI 

FOUNT 

220 

0lM*0»NM2 

FOUNT 

221 

IF  1 ICASE* J) 0 12 »a l 1  tbl2 

FOUNT 

222 

oil 

JlKN<j«lNN2tlFHll  /2 

FOUNT 

223 

J2b THBNH2/ IF  ACT ( IF  1 

Fount 

224 

JlH(32aIJ2STH»IFr>2)/2 

FOUNT 

22b 

ole 

02NlN«ltlFN2 

FOUNT 

22b 

IF  1 IFNI  •*•8*2)  blbtb4Utb4u 

Fount 

227 

bib 

00  bjb  J2«U2HlNt  IFNl .  IFNC 

FOUNT 

22a 

rMtfAa-r«OPl«Fl.l)Af  U2-II/FI.0AI  (NN2I 

FOUNT 

229 

IF  1  ISlGHl  62b t 620 to2U 

FOUNT 

200 

olio 

riltraa«f«£TA 

F  UUN  r 

231 

b2b 

SlMT«*SI«<Trl6rA/2.) 

FOUNT 

232 

ab  Tb*M*-2  .  »b  1  iu  Tm»S  I N  T 

FOUNT 

233 

abfPIaSli'MIritTAI 

FOUNT 

234 

aWaabTHW‘1 . 

FOUNT 

23b 

alaaSTPl 

FOUNT 

23b 

JlMIrxajatlFMl 

FOUNT 

237 

00  bob  JlaolMlM, OlMNOt IFNI 

FOUNT 

238 

IlMA*aJl*l iHNO-2 

FOUNT 

239 

00  630  I  I  *01  f  I  I M  AA  •  2 

FOUNT 

240 

00  630  IJaU  .NT0T.NP2 

FUUN  f 

241 

JifiAAat  JMFP2-NN1 

FOUNT 

242 

00  630  JJal3tJJMAA,.NNl 

FOUNT 

243 

rEnNWaOAf A (03) 

FOUNT 

244 

OATAIJJI  aOATAIJJI  •at/-OArA(^J»i)  »a  I 

FOUNT 

24b 

630 

OATAIJ3«l)artMHM«»ItOATAUJ«U*»H 

FOUNT 

24b 

TEnPNaaN 

FOUNT 

24  7 

«M»»w»aS r  PN-a I *aS  T  N I »aH 

FOUNT 

248 

bjb 

BlaTfc(4PN43btNltB|aaSTNWtal 

FOUNT 

249 

640 

THETAa-TaOPl/FLOAT  1  IF  ACT  UU  1 

FOUNT 

2b  0 

IF  t ISISN1 bbOtbabtbab 

FOUNT 

2b  1 

64  b 

TrttfAa-rrtfeTA 

FOUNT 

2b2 

bbO 

SI^THaSJNl TMt Ta/2.  I 

FOUNT 

2b3 

aSrPHa«2.»blNTHabINTH 

FOUNT 

2b4 

aSrPIaSlNITMETA) 

FOUNT 

2bb 

HSrE**»2a<a/IFACTUF) 

FOUNT 

2bb 

KN*NG«NS  TEP*  (IF  ACT  (IFI/2J  •! 

FOUNT 

2b7 

00  698  Ilaltl  IHNlit 2 

FOUNT 

2b8 

00  698  I Jai 1 tNTOl tMP2 

FOUNT 

2b9 

00  690  AMlNal  t KNANStftbTEP 

f'ount 

260 

01NAA«l  J*  JlrtNli-lFPl 

FOUNT 

2b  1 

00  bao  JlalJ.JlMAA.IFPl 

FOUNT 

262 

J JNA A« J l *  I FP2-NP 1 

FOUNT 

263 

00  baO  03*01 tU3MAAt*Pl 

FOUNT 

264 

02mAa*03*IFP1-IFP2 

FOUNT 

2bb 

Aa*MIN*(U3-Ul»IUl-lJ>/lFACr  UF  »  I/NPINF 

FOUNt 

2bb 

IF  IKNlN-Ubbbtbbbtbbb 

FOUNT 

267 

bbb 

SUMNallt 

Fount 

268 

SOM (an. 

FOUNT 

269 

00  bbO  J2»03 t J2MAA t IFP2 

FOUNT 

270 

SOMMabUMMtO A T A  1 J2 ) 

Fount 

271 

bbO 

SUMIabUMltOATA (02* 1 ) 

FOUNT 

272 

BONK IN) aSOMM 

FOUNT 

273 

BONK 1  A 1 1 J abUM 1 

FOUNT 

2  74 

SO  TO  bau 

FOUNt 

27b 

b«b 

KCONO*K  *2*  <  N-KM IN*1) 

Fount 

276 

02*U2HA* 

Fount 

277 

SOMNaU A  T  A  1 02 ) 

fount 

278 

SOM I aO AT  A  I J2* 1 1 

fount 

279 

OLOSHaO. 

FOUNT 

280 

OIOS  1*0. 

fount 

281 

02a02-IFP2 

FOUNT 

282 

670 

TEMMMaSUMN 

FOUMT 

263 

TEMP1*SUMI 

FOUNT 

266 

SUMNalaOaHasUMN-OLJSH^UATAI J2) 

FOUNT 

265 

SUM I a  r aOSN*SUM 1 -ULUS I »U A  T  A ( J2  « 1 1 

FOUNT 

266 

OLUShsTEMPm 

FOUNT 

26  7 

OLUSlaTEMMl 

COUNT 

266 

J2sJ2-IFm2 

FOUNT 

269 

IE ( J2-J3I 6/s,6/b»6/u 

COUNT 

290 

6/b 

TE6Mm»6H«SuM«-0LUSM»UA 1  A l J£ ) 

FOUNT 

291 

TEHHl«6l»bUMi 

FOUNT 

292 

NON*  (Ms  f  EMMh-  1  EMM  I 

FOUNT 

293 

SONH (XCOMU) aTEHMM*TEMMl 

FOUNT 

29* 

rtMI»HSSK»SUMl-OLUSl«OAI  At  J4»il 

FOUNT 

29b 

TEMPI  at*  l*SUMM 

FOUNT 

296 

aONft  <K« 1 ) aTkMMM* (EMM  I 

COUNT 

29  7 

nOkk  ( KCU<«U*  11*1 1  mmh-  r  Emm  i 

FOUNT 

296 

660 

COnT IrtUE 

FOUNT 

299 

IK  (KmU*-U  66b •  66b >666 

FOUNT 

300 

oas 

■Maas T PH *1 • 

FOUNT 

301 

alaabfMI 

Fount 

302 

GO  To  690 

FOUNT 

303 

S«6 

TEMMmssN 

FOUNT 

30* 

aHaaN«aS  T  PN-a l *aST  M 1 «aH 

FOUNT 

30b 

a IsTEMMH*aiTN l*al*aSTHH«al 

FOUNT 

306 

690 

TaoaNsaN«aM 

FOUNT 

307 

IF (ICASE-3) 692. 691,092 

FOUNT 

308 

691 

IK (IFM1-NP2I 096,692.692 

COUNT 

309 

692 

*»1 

COUNT 

310 

J2MA*aI3*NM2-NMJ 

FOUNT 

311 

OU  693  12*13,  Umax.nPI 

FOUNT 

312 

DATA ( 121 *aONX IK) 

COUNT 

313 

OA7A(I2M)saONMK«l) 

FOUNT 

31* 

693 

K*K»2 

FOUNT 

31S 

(iO  TO  696 

FOUNT 

316 

69b 

J3MAX*I3MFH2-Nm1 

FOUNT 

317 

00  697  u3*I3«UJMAa«NM1 

FOUNT 

318 

J2MAX*u3*NP2-U25  TM 

FOUNT 

319 

OU  697  J2*U3»J2MAX,U2STM 

FOUNT 

320 

JlMA*aU2*JlM62-lKP2 

FOUNT 

321 

J1CNJ*J3*U2HAX*U2STM-U2 

FOUNT 

322 

00  697  J 1  *  J2  tJIMAXt  1KP2 

FOUNT 

323 

Xaj«jj-I3 

FOUNT 

32* 

OATA(Jl) aaONA ( M 

FOUNT 

32b 

DA  I  A (J 1* 1 1 aaONK (X»  1 1 

fount 

326 

IK (J 1-02 1697.697.696 

FOUNT 

327 

696 

OAT  A  (UlCMJ)  aaOMK  (M 

FOUNT 

328 

0 A  T  A ( J 1 CM J  *  1 1 »— SUNK (6*1) 

FOUNT 

329 

69  7 

J1CNU*U1CNU-1FM2 

COUNT 

330 

696 

Continue 

FOUNT 

331 

IKalK.l 

FOUNT 

332 

IKM  l  a  1FP2 

FOUNT 

333 

IK ( IK  Ml— NP 1 > 700,700.610 

FOUNT 

33* 

700 

GO  To  (900,600,900, 701 1 , ILAbE 

FOUNT 

33b 

r<n 

NHALKaN 

FOUNT 

336 

NSN*N 

FOUNT 

337 

T MET Aa-TaOMl /FLOAT (N) 

FOUNT 

338 

IF  1 ISIGN)  703.  702,702 

FOUNT 

339 

7 02 

Trt£T As-TmEIA 

FOUNT 

3*0 

703 

SInTmsSInI TntTA/2.) 

FOUNT 

3*1 

■STPHa— 2,#S1NTH*S1NTm 

FOUNT 

3*2 

aSTPlasiNITEItTAJ 

FOUNT 

3*3 

■Maas | MW, l , 

FOUNT 

3»* 

a  Isas (Ml 

FOUNT 

3*b 

IMlNaJ 

FOUNT 

3*6 

JMlNa2»NMALK -1 

FOUNT 

3*7 

GO  TO  72b 

C  UUNT 

3*6 

710 

J*UH IN 

FOUNT 

3*9 

00  720  1*IM1N,NI0T ,NM2 

FOUNT 

3S0 

SUMMalUAlAd)  «OATA(J)  1/2, 

FOUNT 

3b  l 

SUM I  a ( DA I A  ( I  ♦  1 1 ♦0A1A(J»ll  1/2. 

COUNT 

362 

OlF»a(OA)A(l)-UATA(JI 1/2. 

CUUN  T 

353 

0 1 K I a ( 0  A 1 A  1 1 *  1 1  — 0 A ( A ( J • 1 1 1/2, 

FOUNT 

3b* 
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TbMF>NSI.N»SOFtl 

FOUNT 

356 

rtH**t««I4SUMl-«64(JlFW 

FOUNT 

36ft 

OATAU)a5UMN.7EMNN 

FOUNT 

357 

OArAii*i)«oiFl«rtMi>i 

FOUNT 

356 

0A  f A  1 J) S5UFTN- TEmNN 

FOUNT 

359 

oataij«its-oif 

FOUNT 

3*0 

720 

JSO.NN2 

FOUNT 

Jftl 

IMlNslMlN«2 

FOUNT 

3*2 

J6lN«UMlN-2 

FOUNT 

3*3 

TENNNasN 

Fount 

3*4 

FOUNT 

3*5 

AlsTEMHH*95TNl.«l»»37HN.»l 

FOUNT 

36* 

725 

IF  l  iMIN-JNlNT  710*  730.740 

FOUNT 

3*7 

730 

IF(ISIGn) 731.740.740 

FOUNT 

3*6 

Til 

00  735  l»lHlN.«rOT.NF2 

FOUNT 

3*9 

735 

OATA(l«l)«-OATAtl*l) 

FOUNT 

370 

74« 

N*£*Wd*Wi 

FOUNT 

371 

NtoTsFtTOI  ♦Nior 

FOUNT 

372 

JsnTUT • 1 

FOUNT 

373 

IMA«aNTOr/2*l 

FOUNT 

374 

.7*5 

I61N»IHA*-24NHA1.F 

FOUNT 

3  75 

I« (min 

FOUNT 

37* 

GO  TO  766 

FOUNT 

377 

750 

04  TA ( J) «OAT  A ( Z T 

FOUNT 

378 

uata<j.1)s-oata«i.ii 

FOUNT 

379 

755 

I»l«2 

FOUNT 

380 

J»j-2 

FOUNT 

381 

IF ( l-IMAAT 760.760.760 

FOUNT 

382 

760 

OATA(J)>OATA(1M1N)«OAI A(lniN.l) 

FOUNT 

383 

DATA(J.l)  >0  . 

FOUNT 

384 

IFlI-J) 770. 760. 760 

FOUNT 

385 

766 

L)  A  T  A  (  J )  *0  AT  A  (  1 ) 

FOUNT 

36* 

OAT  A (J. 1 1 *0 AT  A  < 1 . 1 1 

FOUNT 

387 

770 

l»l-2 

FOUNT 

388 

JSJ-2 

FOUNT 

J89 

IFlWMir.1  776.  775.  765 

FOUNT 

390 

7  75 

OArA(J)sOATA(IMlN).OAlAll61N.l) 

FOUNT 

391 

OATA(J.l) SO. 

FOUNT 

392 

IMAAsIMIN 

FOUNT 

393 

GO  TO  7  45 

FOUNT 

394 

760 

DATA (l)sOAf All) .OAT A (2) 

FOUNT 

J95 

OAI A(2) >0. 

Fount 

396 

1.0  TO  '900 

FOUNT 

39  7 

600 

[Ml 1MNG-NH l ) 605* 900. 900 

FOUNT 

398 

606 

oo  doo  Usi.Nror.iNP2 

FOUNT 

399 

12MAASI  J.NP2-'NP1 

FOUNT 

*00 

00  660  I2»l 3. I2MAA.NP1 

FOUNT 

401 

16  lids  12 4  l  UNO 

FOUNT 

402 

[HAAa[2.NPt-2 

FOUNT 

403 

vMAX*2MJ.NP1-IMIN 

FOUNT 

404 

IF ( I 2“ (J) 620.620.610 

FOUNT 

405 

610 

JMAASJM4A.NM2 

FOUNT 

40* 

62u 

IF  t IU19-27d50.650.6JU 

FOUNT 

407 

630 

JSJHSAMPO 

FOUNT 

408 

00  640  1 »IM1N* [WAX .2 

FOUNT 

409 

OAT  A  1 1 >  sOAT  A  1 J) 

FOUNT 

410 

Data i i* i) s-oArAid.ii 

FOUNT 

411 

640 

jsj-2 

FOUNT 

412 

650 

JSJHAA 

FOUNT 

413 

OO  660  IsIPlN.lMAA.NFO 

FOUNT 

414 

OATAI 1)  sOATAUI 

FOUNT 

415 

oa  r  a  t i*ii »— oa  r  a ( j. 1 1 

FOUNT 

41* 

660 

JSJ-NFO 

FOUNT 

*17 

900 

NMOSNPl 

FOUNT 

418 

NM1SNM2 

FOUNT 

419 

610 

NPHEVsn 

FOUNT 

*20 

920 

cont iNoe 

FOUNT 

*21 

nETUN.. 

FOUNT 

*22 

EMO 

FOUNT 

*23 
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11.  SUBROUTINE  FUHS 


a.  Purpose  --  Subroutine  FUHS  is  used  to  calculate  the  phase  change 
due  to  heat  release  as  the  molecules  in  the  lower  laser  level  decay  to  the 
ground  state,  assuming  supersonic  flow  and  that  the  heat  release  has  a  dis¬ 
turbing  effect  (not  major)  on  the  flow.  Figure  24  shows  the  subroutine  FUHS 
flow  chart. 


b.  Relevant  formalism  —  The  equations  used  are  based  on  those  by 
Biblarz  and  Fuhs,  (Ref.  10),  and  by  Fuhs  (Ref.  11). 


Initially,  it  is  assumed  that  the  continuity,  momentum,  and  energy  equa¬ 
tions  for  steady  flow  with  heat  addition  are  valid: 


Continuity: 

Momentum: 

Energy : 


7  •  (pu)  *  0 
Du  ^ 

p - *  7  =  0 

Dt  P 


(70) 

(71) 

(72) 


These  are  linearized,  assuming 


p  =  0qo  +  p'  p  =  p  ♦  p' 


-»  A  ,,,  A  t 

u  =  x  (U+u  )  +  j  v 


(73) 


resulting  in 

Continuity:  p^u'  +  p  u'  ♦  Uo'  »  0 

®  X  oo  y  X 


(u'  s  — — u'  ;  etc.\ 
3x  / 


(74) 


(75) 


Momentum: 


(p.  Uux  *  Px  "  °l 

)p  Uv'  +  p'  *  0 

v  «  x  y 


(76) 


10.  Biblarz,  0.  and  Fuhs,  A.  E.,  "Laser  Cavity  Density  Changes  with  Kinetics 
of  Energy  Release,"  AIAA  Journal,  12,  p.  1083,  August  1974. 

11.  Fuhs,  A.  E.,  "Quaside  Area  Rule  for  Heat  Addition  in  Transonic  and  Super¬ 
sonic  Flight  Regimes,"  AFAPL-TR-72-10,  Air  Force  Propulsion  Laboratorv, 
HfPAFB ,  Ohio,  1972. 


Energy : 


(77) 


The  solution  is  then  found  by  using  the  potential  for  the  flow  as  done 
by  Tsien  and  Bieloch,  (Ref.  12),  resulting  in  the  following  equations  for  a 
heat  source  q  in  supersonic  heat  addition 


u  =  -  6  (x'3>,) 

(78) 

v'  * 

(79) 

o'- 

(80) 

»'  ■  - 4  <-K-ar)  -  4  «  1  W 

(81) 

where 

x  =  Sy  Defines  a  Mach  line 

(32) 

6  *>/ M2-l 

(83) 

a  *  U/M  Speed  of  sound 

(84) 

« 

(85) 

For  volume  heat  addition  q  -*■  dq  »  h(x,y)dxdy,  and  the 
are  added;  for  example. 

effect  of  all  sources 

u'  »  dxdv  5  (x-6y) 

(86) 

=  llXlli  #h(x*6y)  sin  yds 

2yp6  Jo 

(87) 

12.  Tsien,  H.  E.  and  Milton  Beilock,  "Heat  Source  in 
of  the  Aeronautical  Sciences,  December  1949,  p.  ' 

a  Uniform  Flow,"  Journal 
’46. 
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where  the  integral  is  taken  along  a  streamline  (x  -  By)  and  siny  *  1/M.  S  is 
related  to  x  and  y  by 

S  *  x  cosy  S=y  siny 

The  equation  for  density  change  is  therefore. 


(88) 


The  first  term  is  due  to  heat  addition  along  a  streamline  while  the  second  is 
due  to  the  wake  in  the  energy  release  region.  "Heat  addition  in  a  supersonic 
stream  causes  compression  waves  which  radiate  from  the  heat  release  region. 
The  waves  reflect  from  the  cavity  walls.  Downstream  of  the  heat  release 
region  is  a  wake.  Whereas  the  compression  waves  increase  gas  density  the  wake 
decreases  gas  density"  (Ref.  12)  . 


The  heat  release  (h(x,y)  for  a  laser  can  be  written: 


h(x,y)  =  c 


/ 


NEP 


A I  (x',y)e 


•(x-xO/UT 


dx' 


(89) 


where  T  is  the  time  constant  for  the  depopulation  of  the  lower  laser  level. 
If  the  depopulation  were  instantaneous  (T  -*■  0)  then  the  heat  release  would 
be  proportional  to  the  intensity  since  for  every  molecule  emitting  a  photon, 
that  same  molecule  gives  off  a  quantum  of  heat.  It  has  been  shown  (Ref.  12) 
that  the  above  equation  for  the  heat  release  can  be  used  in  all  regions  of 
the  far  cavity  with  only  small  error. 

The  constant  C  can  be  found  by  conservation  of  energy.  Consider  the 
following  three-level  molecule  shown  in  Figure  25. 
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m 


TT 


Figure  2S.  Three-level  molecule. 


The  quantum  efficiency  n  is  defined  as  the  ratio  of  the  power  out  divided  by 
the  power  in,  so  for  the  gain/phase  segment  under  consideration 


(No.  molecules)  (E2-E1) _  P 
n  *  (No.  molecules)  (E2-Eq)~  aH+^P 


(90) 


where 

AH  =  (No.  molecules)  (E1  -EQ) 

The  above  expression  can  be  inverted  to  give 


(91) 


Assume,  for  this  calculation,  that  (0,0)  is  at  the  corner  of  the  sidewall  and 
the  NEP.  Then, 


AH  = 


(x'.yle-^^dx' 

(x-x1)  Al(x,,y)E'(x“x)/UTdx' 


(92) 
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where,  recall 


I(x-x)  =J 


(l,  x>x' 
0  x<x' 


so 


so 


00  00 


AH  =  cAz  f  dyj  dxiAl(x',y)  f  dxl(x-x')  e'(x'-1^/UT 

•^0^0 


OO  00  --  (? 

=  cAz  /  dy  I  dxAl  [x,y)J  dx  e  x 


-x  /UT 


AH  =  CAZ 


30  » 

/  dy  J  dx'Al  (x.y) 


=  cUTAzAP 


ill  =  =  cUTA: 

n  AP 


(93) 


(94) 


(95) 


(96) 


Since  the  numerical  kinetics  return  the  conditions  of  the  wake  region  and  not 
the  heat  addition,  these  must  be  the  data  used.  Thus,  for  the  analytical 
kinetics  model,  find  the  heat  addition  to  the  wake: 


=  c 


=  c 


oo  ® 

f  dx'AI(x.y)  dx 

-  _  x 

/dx"  Al(x",y)  I(x-x)  J  dx  e 


,  ,  ,  x  -  (x*-x)  /UT 

I(X-X)  I  (X-XJ  £ 


-(x-xf)/UT 


(97) 


so 


W(.x,y)  =  c 


/ 


dx"  AI (x,y)  UTll-e 


,-(x-x")/UT j 


(98) 


so,  recalling 


<=  *  ^  ofe  “d  11  ^ 


■ ’  C4 


PPD  from  SIMPGC 


(99) 


wake  energy  addition  becomes 


«(«■)-)  ■  s  (ra)  ^  ppo  (x’rt  (i-'(x':,,/u1 

Now  that  both  numerical  and  analytical  models  can  give  the  wake  integrated 
heat  addition,  the  Fuhs  effect  is  calculated  in  the  following  manner: 


(100) 


H(I 


■J>  ■  &  / 


,  W(x(Il)  '  W(x(I-d) 

AX 


(101) 


Jt(I) 

h(x,y)  dx 

x(I-l) 

Given  this  average  heat  release  function,  the  integral  along  a  characteristic 
can  be  performed.  Note  that  reflection  off  the  sidewalls  must  be  included,  as 
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J 


can  be  seen  in  Figure  26.  The  contribution  due  to  reflection  at  P^  is  there¬ 
fore  found  by  finding  the  total  heat  released  along  the  characteristic  that 
reflects  at  P,,  then  adding  this  to  that  found  along  P2P  . 

(Note:  For  larger  Mach  angles  (>tan  -l(lAy/2Ax) ) ,  the  effective  number  of 
points  in  the  direction  is  multiplied  by  a  factor  of  KS  in  the  program  so 
that  only  information  in  two  mesh  rectangles  is  needed  to  find  heat  addition 
at  the  wall,  i.e.,  extrapolation  from  the  two  nearest  the  sidewall,  as  can 
be  seen  from  the  following  more  detailed  description  of  how  the  left  and 
right  characteristic  terms  are  found.)  Assume  KS  *  1  and  that  the  Mach  angle 
is  less  than  tan”1  (0y/2Dx) .  This  is  assumed  in  the  program  by  changing  the 
total  effective  number  of  x  coordinates  to  be  KS*NPTS. 


Consider  first  the  left  characteristic  term  for  the  (I,J)  point  in 
Figure  27: 


DVOYR 


•  J-1 


•  •  •  J-2 

1-2  1-1  I 


Figure  27.  Left  characteristic  value. 


The  left  characteristic  value  at  (I,J)  is  that  at  P  (found  by  a  linear  inter¬ 
polation  between  the  and  (I-l.J-l)  points)  plus  the  heat  released  in 

the  region,  again  usir.g  a  linear  interpolation  for  H  at  (I-1,J)  and  (I-1,J-1). 

Now  consider  a  boundary  point  shown  in  Figure  28; 

•  •  *3 


•  2 


Figure  28.  Boundary  point. 


To  find  the  characteristic  value  at  (1,1)  it  is  necessary  to  know  the  value 
at  point  P  which  is  in  the  (1,1)  column  on  the  sidewall.  The  value  will  then 
be  a  linear  interpolation  between  the  values  at  (1-1,1)  and  P  plus  a  similar 
linear  interpolation  for  the  added  heat. 
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To  find  the  characteristic  value  at  point  P,  the  values  at  (1-2,2) 
and  (1-2,1)  are  extrapolated  linearly  toward  the  boundary  to  find  the  value 
at  point  0.  Heat  is  then  added,  again  by  linear  extrapolation. 

Note  that  this  detailed  analysis  at  the  boundary  assumes  that  the  char¬ 
acteristic  of  interest  lies  between  the  boundary  at  (1-1)  and  the  (1-1,1) 
point,  hence  the  necessity  of  the  restriction  that  DYR  =  DYCH/DY  be  less  than 
0.5. 

Analysis  of  the  right  characteristic  is  similar  to  that  of  the  left 
characteristic. 

The  phase  shift  is  found  using  the  Gladstone-Dale  relation. 

n  %  1  »  Co  (102) 


The  phase  change  Ao  is 


A  4)  * 


T  ““ 


2?r 

X 


(103) 


This  is  then  added  to  that  of  the  unloaded  density  field  to  establish  the 
total  phase  change  at  the  gain/phase  segment. 

c .  Fortran 

Argument  List 


:ic 


fwake  for  numerical  kinetics 

for  analytical  kinetics 

i  /i-nX 

AI  X' 


-(-) 

A2  \  n  / 


DEN  *  phase  change  returned  due  to  the  FUHS  effect 
NCV  -  cavity  number 
Commons  Changes  -  none 
Subroutines  called  -  none 

Computer  printouts  of  subroutine  FUHS  follow. 
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W 


non 


SUBROUTINE  FUHS 


76/176 


0PT=1 


FIN  4.6+432 


04/27/79  12.23.47 


SOBWUUUnE  FuHSUlC.OtN.NCv) 

KOMS 

2 

c 

FUHS  tf^tcr  ALoOFlllMN 

f  OMS 

3 

c 

This  KOO'INt  CAlCULA f tS  Mt  CUNTHlBUl lUN  ro  TMfc 

CAVITY  OCNSITY 

FUHS 

4 

c 

FltLO  DUE  TO  StlMULAffcO  EMISSION  InOUCEO  HEAT  AUOITION. 

runs 

s 

LtVtL  2 «  i  1C .OEni AC 

f  OHS 

0 

C0MMUN/CAV2/AC (SI  .rc (SI  »ZC(5)  .NA (S) .NY (S>  tNS(S>  t 

AMC(S)  *  Y  MC  (  S  )  t 

►  OHS 

1 

2  NuTfHEl20>.  sSoAiNllOOO)  .SATIN15) 

•UETAIS) .MHOS(S) • 

FUHS 

a 

3  VEL15) .OAM15) .XMACH(S) • 1 VI (SI .Tv2(5l  .TVJ(S)  .TVN215)  *TSCAV<5) . 

FOHS 

0 

*  r'SCAV  (SI  •I'M  (SI  ilN^Di  .FCUc (SI  »Fm20  (SI  ,FCU(5I  .FU2I5I  .  M  TLt  (201  • 

f  OH s 

10 

S  AV(i  (SI  *  NS  fM 

FUHS 

11 

DIMENSION  2 1C  (  1  I.Ot’Vl  1  I  *CHN(96«2)  .CHt.l1S.2l  *M<96) 

FOHS 

12 

ENTMPlA.a.C) a**C*(d*AI 

FOHS 

13 

CALL  CPUl (Ml 1SMT) 

FUHS 

14 

c  ••• 

CALCULA Tt  INITIAL  CONSTANlS 

FOHS 

lb 

0  »  VtL (NCVI 

FUHS 

16 

(jMA  a  (jAM(NCV) 

FUHS 

IT 

AMA  a  XMACHINCV) 

FUHS 

18 

MHO  a  RHUS (NCVI 

FUHS 

19 

A  a  O/XMA 

FOHS 

20 

A44K  a  (OMA-1 .0) / ( A4*2*U*MHU> 

FOHS 

21 

lMaHA(NCV) 

FOHS 

22 

JMaNT (NCV) 

FOHS 

23 

0AaxC(NCV)/IM 

FOHS 

24 

OVavC (NCVI /JM 

FOHS 

25 

IF  (NSYM.EU.J)  00  TO  444 

FOHS 

26 

J2aJM/2 

FOHS 

27 

00  *4b  Jai.J2 

FUHS 

2B 

00  44S  1«1.IM 

FUHS 

29 

12  a  l  « 1 J-l ) • 1M 

FUHS 

30 

IJ  a  I  .  <  JM  -J)«1M 

Funs 

31 

Z1C ( 13) >ZIC ( 12) 

FOHS 

32 

445 

0£n( 13) aOEN( 12) 

FOHS 

33 

464 

TANMUa l.U/SUM) (AMA4«2-l.U) 

FOHS 

3* 

ACM  a  (liM»-1.0)4AMA/(2.0«A*4J*S«Mr  (  AM»*42*  1 . 0  )  4RH0 )  »OT 

FOHS 

3b 

IF (NO ( YPt (NCV )  .to.  11  GO  10  11 

Funs 

36 

IUalM-1 

FOHS 

37 

ALAGaOA/ (U/BE I A ( NC V  I  ) 

FOHS 

38 

00  lb  Jal.JM 

FUHS 

39 

00  14  IO-l.lU 

FOHS 

40 

IaIM«l-IO 

FUHS 

61 

Na  1 

FOHS 

62 

SUMaj. 

FOHS 

63 

00  13  IL«2.1 

FUHS 

44 

NaN-l 

FUHS 

65 

H  a  (1-N)4XLA0 

FUHS 

46 

Baa. 

FUHS 

47 

If <«.or .20.1  uu  ro  12 

FUHS 

48 

B  a  1 .D/bAP (H) 

FOHS 

69 

12 

CONTINUE 

Funs 

50 

13 

SOM  a  SOM*21C (N* ( J-l ) «IM  )4(l.-8) 

FUHS 

51 

14 

21C ( 1+ l J-l) MM) aSOM«OA 

FUHS 

52 

z i c ( 1  * ( <jm  1 ) Aim)  a  a. 

FUHS 

53 

lb 

CONTINUE 

FUHS 

54 

U 

00  6  ixalvio 

FOHS 

55 

Abaft 

FOHS 

56 

QVCHaUA*  I  ANMO/fLOA  I  (IASI 

FOHS 

57 

OVNaOTCH/QY 

FOHS 

58 

IF (OYH  .lt •  a. SI  00  To  t 

FOHS 

59 

6 

CONTINUE 

FOHS 

60 

7 

BCL«l . ♦OTM 

FOHS 

61 

OTM2a2.»OVM 

FOHS 

62 

ACHaALH*OVM 

FOHS 

63 

SCMai .S-OYH 

FOHS 

66 

00  1  Jal.JM 

FOHS 

65 

Okfl(l»(J-ll»IM)  a  u. 

FOHS 

66 

CHL ( Jt l ) *0. 

FOHS 

67 

l 

chm ( j. 1 ) »a. 

FOHS 

68 

CMLWALaO. 

FOHS 

69 

CHMaAL*0. 

FOHS 
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c>  ct  n  n 


00  2uO 

FURS 

n 

c 

COMPUTE  HEAT  WELtASEO  At  l-l 

FURS 

12 

00  210  J«l.UM 

FURS 

1 3 

U  * 

FURS 

/  A 

*10 

RtJ)«UlC(U  >-2tC<U-l  ll/OA 

FURS 

TS 

c 

compute  strength  of  crafial  iehistic  »A*ts 

FURS 

1 6 

UO  1JU  A»l.AS 

FURS 

17 

DU  10 

FURS 

r  a 

c 

LEFT  RUNNING  HAVE 

FURS 

TO 

JL*U-l 

FURS 

00 

if io  .ne.  n  so  ro  20 

FURS 

01 

c 

EXTRAPOLATE  FOR  h£aT  rfELE AStOv  OSt  nuONUARY  POINT 

FURS 

02 

CHCll.2)  »ENTnP(CRL  Hi  1)  .CrtL«AL.0rM2)  «H<  1)  »SCL> 

FURS 

03 

GO  TO  30 

FURS 

OA 

c 

••• 

INTERPOLATE  FOR  value 

FURS 

OS 

tit 

CHLU.2)»ENTHP(CHL<U»1)  •  CRL«JL*1>  »OYX)  ♦ENIMPiHTJ)  |H(JU  *OYR> 

FURS 

96 

c 

RIghT  RUNNING  »AVt 

FURS 

or 

JO 

jrmu»i 

FURS 

SO 

IF (0  .N£.  JM)  GO  10  AO 

FURS 

09 

A 

EXTRAPOLATE  FOP  heat  RELEAslU*  01E  OOUNOANY  POINT 

FURS 

90 

ChwIJH.2) aEMRPtCHRlJR.il t CMPaAL  »OYHb> •ENTWPtHtJL) f ILL) 

FURS 

91 

GO  TO  90 

FURS 

92 

C 

INTERPOLATE  FOR  value 

FURS 

93 

*0 

CHM(J«2) *ENTHP(CHP<0*1 ) .CrtH Ivrff 1 i ,01H > .tMHPfRtJ) ,UYk 1 

furs 

9A 

CONTINUE 

FURS 

9S 

c 

#•# 

UPOATE  dOONUAPY  PUINT1 

FURS 

96 

ChlFAL»ENTWP  ICMP  (2*  1)  »CHH  ( l  •  1)  fSCrfl  *t>vTPP(H<2>  «Rt  1)  *SC»> 

furs 

9T 

CHPOAL»£NThPCCHLIJH-1 >1) »CnL (UM«1> .SCR) »tMRP < H UN-1 ) .RtJHI .ICR) 

FURS 

90 

00  60  J»ttOH 

FURS 

99 

CHR ( J . 1 ) *CHR ( J . 2 ) 

FURS 

100 

90 

CHL ( Jt  1 ) *ChL IJ«2) 

FURS 

101 

c 

■RITE <6.03 1  Imill  ,Ch«<  1. 11  .CrtL  <  1  .  t  >  . ChL*AL .CRH9AL 

FURS 

102 

c 

63 

FORMAT <  lAt IS.5G12.1) 

FURS 

103 

100 

CONTINUE 

furs 

10A 

c 

••• 

GET  TulAL  0EN1ITY  CHANGE 

FurS 

101 

oo  no  j«i.jh 

FURS 

106 

IJ  «  I  ♦  U-l>»lM 

FURS 

10T 

no 

OEM  IJ)»ACH»»lhH(J,1)  •CHHJ«1))-AaAAA21CI  IJ) 

FURS 

100 

100 

CUNT INUE 

FURS 

109 

c 

oo  auo  k»i «a 

FURS 

110 

c 

•RITE <a«GOl> 

FURS 

111 

c 

00  1 

FOMMAT ( IHI 1 

FURS 

112 

c 

lL«l»l6*t*-l> 

FURS 

113 

c 

[0»IL»1 J 

FURS 

11* 

c 

00  902  J«1.UM 

FURS 

115 

c 

00* 

arf  l  ft  to.ailj)  (0EN«I.0).I»1L.1U) 

furs 

116 

c 

903 

Format  1  IA.  IO  (2PF6.  31  ) 

furs 

117 

c 

000 

CONTINUE 

furs 

110 

«UCL  ■  .220AHMUA2L  INCV  1  /'VStNLV  ) 

FURS 

119 

JT  a  1MAJM 

furs 

120 

UO  TO  J<UJt 

FURS 

121 

DEM  0  I  a  HOCl*0EN(  J  ) 

furs 

122 

fit 

CONTINUE 

FURS 

123 

CALL  CPUTIMIMn) 

FURS 

12a 

OfeLTaUSRT-lE  iNI/tuu. 

FURS 

12S 

■RiTE  16./70)  oelt 

FURS 

126 

7T* 

format <2orofurs  analysis  tour  .gu.s.2or  seconos  of  cpu  ume»///> 

FURS 

127 

RETURN 

FURS 

120 

ENO 

FURS 

129 

1 2 .  SUBROUTINE  GAINXY 

a.  Purpose  --  GAINXY  controls  the  gain  calculations  in  the  cavity. 
Figure  29  shows  the  Subroutine  GAINXY  flow  chart.  Either  small  signal  gain 
(along  one  stream  tube)  or  full-field-loaded  gain  is  selected.  From  input 
cavity  conditions  (including  vibrational  temperatures  of  the  constituents  at 
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noztle  exit  plane),  all  other  thermodynamic  parameters,  energy  levels, 
broadened  line-width  function,  gain,  optical  cross  section,  and  saturation 
intensity  at  a  single  point  are  given.  Subroutine  KINET  is  called  to  inte¬ 
grate  the  rate  equations  along  the  X-direction  (streamtube) .  This  is  done 
only  once  for  small  signal  gain.  When  loaded  gain  is  selected  the  entire 
field  is  calculated  and  gain  is  updated  by  local  intensity  one  step  in  the  Z 
(propagation)  direction.  The  loaded  gain  is  hence  a  numerical  (small  step¬ 
wise  integrated)  process.  This  updated  gain  and  intensity  field  is  used  to 
SOQ . 

The  single  stream  tube  small  signal  gain  is  used  in  subroutine  SIMPGG 
which  computes  a  closed  form  solution  of  the  full  field  loaded  gain. 

Subroutine  MIX  is  called  by  subroutine  GAINXY  to  calculate  the  transi¬ 
tion  rates. 

A  ratio  technique  is  employed  to  effect  calculation  of  the  gain  field 
for  9.27  ulasing.  This  is  triggered  by  GFACT  =  1  for  10.60  u;  GFACT  =  1  for 
9.27  u. 


b.  Relevant  formalism  --  The  option  for  small  signal  gain  only  or 
full-field  loaded  numerical  gain  is  determined  by  IFIELD  =  1  for  small  signed 
gain  and  IFIELD  =  1  for  numerical  gain. 

For  small  signal  gain  only,  the  gain  is  computed  first  at  the  nozzle 
exit  plane  and  then  computed  along  the  flow  direction  by  integrating  the 
rate  equations  in  subroutine  KINET. 

The  particular  initial  thermodynamic  conditions,  rotational  J  values 
(P  or  R  branch) ,  and  initial  vibrational  temperatures  are  brought  in  through 
common/CAV2/ .  Then,  for  a  particular  vibration-rotation  transition,  the  gain 
coefficient  is  given  by: 


(104) 


106 


Figure  29.  Subroutine  GAINXY  flow  chart. 
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Where , 


h  =  Planck's  constant  =  6.625  x  10" erg 
M  =  Mass  of  CO^  molecule  =  44  x  1.66  x  10"^4  g 
K  =  Boltzmann's  constant  =  1.38  x  10"16  erg/K 

J  +  1  for  J'  *  J  +  1  (P-branch) 

Sj  = 

J  for  J'  »  J  -  1  (R-branch) 


n  =  total  gas  number  density 
c  *  speed  of  light  *  3  x  1010  cm/s 
x^  *  mole  fraction  of  the  ith  species 

Vi  CO  3  ra8an  velocity  between  CO,  and  ith  species 

M.  „  =  reduced  mass  of  i-CO.  pair 

i-C02  2  r 

cr-CO^  *  optical  broadening  cross-section 
Vo  =  frequency  of  transition  ( v,j)  -  (v',  j') 


(10S) 


VJ 


=  N  fT  = 
v  J 


2j+i  „  -JCJ*n  n(v) 


(V) 

rot 


KT 


rot 


where , 


0v  =  Characteristic  temperature  of  state 
Ty  *  Vibrational  temperature  of  state 
The  saturation  intensity  is  calculated: 
hv6 

rSAT  =  a 


(106) 


where, 

hv  a  photon  energy 

6  *  lower  laser  level  relaxation  rate 
a  *  optical  cross-section  of  the  transition 

Where  Rc2  is  the  EOVO  transition  rate  —  (1/s),  all  the  initial  energies 
of  the  vibration  levels  are  comnuted  before  entering  subroutine  KINET. 


EOOVI  = 


Xco2  *2349 

_  hc*2349 
KT, 


1 
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EOVOI 


1 


EVOOI 


Xco2  *2349 
7  hc*667 
KT2 

Xco2  *2349 
e  hc*1388 


EN2I 


^2*2331 

hc*2331 


KTXN2 


1 
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Where  X  and  X.,_  are  mole  fractions  of  C0„  ,  N„  and  Tl,  T2,  TXI- 

co2  N2  2  and  2 ,  N2 

are  vibrational  temperatures.  These  vibrational  temperatures  and  levels  are 
shown  schematically  in  Figure  30. 

Gain  is  computed  as  a  function  of  x  by  calling  ’’KINET." 

When  the  loaded  numerical  gain  option  is  triggered  (IFIELD)  1) ,  the 
full  field  (in  X  and  Y)  gain  is  calculated  in  KINET  as  a  function  of  previous 
intensities  and  the  field  is  updated  when  returned  to  GAINXY  by  propagating 
each  local  intensity  through  a  AZ,  with  local  gain  GAN(I) .  The  gain  is  thus 
recomputed  for  each  Doint  G(J)  =  e^^  ^ . 


Argument  List 


XIC  intensity  array  of  propagation  field 

GAN  gain  array  of  propagation  field 

NCV  cavity  indicator 

IFIELD  trigger  for  small  signal  gain  (=>  1)  for  full  field 

loaded  gain  (/  1) 


Commons  Modified 
/START/ 

TSI  static  temperature  (K) 

PSI  static  pressure  (atm) 

VI  gas  velocity  (cm/s) 
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eiuperature  anil  energy  levels. 


EOOVI 


/PROPT/ 


/MOLES/ 

/RATE/ 

/FACTOR/ 


Initial  Energy  (OOV  level) 

EOVOI  Initial  Energy  (OVO  level) 

EN2I  Initial  Energy  vibrational  level 

GAINI  INITIAL  GAIN 

TS  static  temperature  (K) 

PS  static  pressure  (atm) 

V  gas  velocity  (ca/s) 

RHO  gas  density  (g/cm^) 

RHON  number  density  (cm  ^) 

CP  specific  heat  1  constant  pressure 

GAMMA  ratio  of  specific  heats 

R  gas  constant  of  mixture 

B  (In  2)  (3.78  x  106) 

XLAMB  wavelength  (X) 

HNU  energy  of  photon  of  wavelength  XLAMB 

CPRM  parameter  to  get  Doppler  broadened  line 
ratio 


XN2 

mole 

fraction 

(n2) 

XC02 

mole 

fraction 

(co2) 

XH20 

mole 

fraction 

CH2°) 

XCO 

mole 

fraction 

(CO) 

X02 

mole 

fraction 

(02) 

RSTIM 

stimulated  transition  rate  (s'*) 

molecular  weight  of  gas  mixture 


GDL 


Figure  31.  Subroutine  GDI.  organization 


o  r  n  n  o  r 


AG 


Avogadro ' s  number 
GCON  gain  correction  factor 

ROTUP  upper  rotational  level  (K) 

ROTLO  lower  rotational  level  (K) 

RCORR  correction  factor  for  optical  x-section 

C  speed  of  light  (cm/s) 
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XMG  a  ^a.ai6»*N*»4*.0U»AU^»18.Ulfta*M2O» 32.0*XO2 
X02F»Ca20.939 
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13.  SUBROUTINE  GDL 

a.  Purpose  —  Subroutine  GDL  is  the  main  driver  program  for  resonator 
and  optical  train  calculations.  It  is  here  that  the  information  about  each 
resonator  element  is  stored,  as  well  as  the  order  in  which  they  are  applied 
to  the  beam.  Figure  31  shows  the  Subroutine  GDL  organization. 

b.  Formalism  —  Subroutine  GDL  controls  the  iterative  procedure  of 
starting  with  a  given  field  established  in  the  main  program  (SOQ)  and  propa¬ 
gates  this  field  through  the  resonator.  Eventually,  the  mode  which  loses  the 
least  power  (in  the  case  of  a  bare  resonator)  or  gains  the  most  power  Cin  the 
case  of  a  loaded  resonator)  will  predominate  since  the  other  modes  will  be 
suppressed  due  to  relative  power  loss.  For  the  degenerate  case  when  two  or 
more  modes  are  competing  for  the  status  of  lowest  loss  mode,  the  field  will 
usually  fail  to  converge  to  a  single  mode  shape,  since  there  is  no  unique 
mode  for  that  eigenvalue. 


c.  Fortran  --  To  accomplish  the  above,  GDL  contains  several  fundamental 
arrays.  One  is  the  singly  dimensioned  CU  array  in  which  the  field  is  stored. 
For  a  given  point  (x(I) ,  x(J))  the  field  value  is  stored  in  the  complex  loca¬ 

tion. 

CU  (I  +  (J-l)  *  NPTS) 

Common  /MELT/  contains  CU  as  well  as  the  work  array  CFIL,  the  coordinate 
array  x,  the  location  of  the  optical  axis  (DRX  and  DRY) ,  and  the  iteration 
number  NITER.  This  common  is  shared  by  most  of  the  routines  in  the  deck.  The 
other  majoT  arrays  are  the  ABC  array,  the  IGDL  array,  and  the  GNOT  array. 
During  the  first  iteration  of  a  particular  run,  GDL  reads  input  from  unit  IN 
in  the  form  of  namelists  and  titles.  The  order  of  resonator  elements  to  be 
met  by  the  beam  is  controlled  by  the  order  in  which  the  SCONTRL  cards  are 
read.  These  contain  the  IFLOW  parameters  which  designate  specific  elements, 
as  follows: 
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NAMELIST/CONTROL/ IFLOW,  SNOTE,  IPLOTS 

I FLOW  CONTROLS  THE  FLOW  OF  CALCULATIONS  THROUGH  GDL 

=  1  CAVITY  ELEMENT,  READS  CAVTY1,  CAVTY2. 

(from  CAVITY) 

*  2  MIRROR  ELEMENT,  READS  MIROR 

=  3  VAMP  ELEMENT,  READS  PROPGT 

»  4  APERTURE  ELEMENT,  READS  APTUR 

*  5  THERMAL  BLOOMING,  READS  BLOOM 

*  6  INTERPOLATE  FIELD  OVER  SMALLER  AREA,  READS  CUTOUT 

=  7  TEST  FOR  CONVERGENCE  OF  ITERATION,  NO  INPUT 

=  8  PLOT  FIELD  DISTRIBUTION,  READS  TITLE 

=  9  RETURN  CONTROL  TO  CALLING  PROGRAM,  NO  INPUT 

=  10  READ  AND/OR  WRITE  CU  ON  DISK,  READS  DISKIT 

=  11  AERO  WINDOW  R.M.S.  PHASE  MODEL.  NO  INPUT 

=  12  SCALING  ROUTINE  .  .  .MULTIPLIES  ENTIRE  FIELD, 

READS  MULT 

=  13  FLIPS  THE  FIELD  ABOUT  THE  y-AXIS,  NO  INPUT 

=  14  SINUSOIDAL  DENSITY  VARIATIONS,  READS  SINDEN 

=  IS  REGRIDS  FIELD  TO  LARGER  SIZE,  READS  REGRID 

=  16  CU  PUNCHED  ON  CARDS,  NO  INPUT 

=  17  MIRROR  THERMAL  BL  MODEL,  READS  THRML 

-  18  SPIDER  ROUTINE,  READS  SPIDR 

*  19  AXION  ROUTINE,  READS  AXICON 

*  20  PROPAGATE  IN  R-THETA  SPACE,  READS  RPROP 

=  21  REMOVES  OR  ADDS  BACK  BEAM  CENTER,  READS  CENTER 

*  22  FLIPS  THE  BEAM  ABOUT  THE  x-AXIS,  NO  INPUT 

IPLOTS  is  the  printer  plot  selector.  IPLOTS=ABCDE,  where  A*1  selects  R-theta 
plots,  B«1  selects  iso-intensity  plot,  C*1  selects  x-axis  plot,  D«1  selects 
diagonal  plot,  and  E*1  selects  y-axis  plot:  exanrole,  IPLOTS  =  1001  selects 


iso-intensity  and  y-axis  plots  in  x-y  coordinates.  The  order  of  IFLOW  numbers 
for  a  given  resonator  is  then  stored  in  the  IGDL  array  for  future  iterations. 
Tn  the  same  manner  the  associated  titles  are  stored  in  the  GNOT  array. 

Usually  for  a  given  IFLOW  there  is  another  associated  namelist  contain¬ 
ing  relevant  element  parameters.  Once  read  in,  these  numbers  are  stored  in 
ABC  (I,J,K)  where  I  indicates  the  parameter  for  the  J  the  element  of  type  K. 
The  number  (J)  of  the  element  is  stored  in  common  ZIP,  which  is  equivalenced 
to  the  ICAVZ  array.  At  the  beginning  of  each  iteration  most  of  ICAVZ  is 
filled  with  zeros  so  that  the  center  index  of  the  ABC  array  is  correctly 
identified.  At  the  end  of  each  iteration,  the  current  field  is  compared  with 
that  of  the  previous  iteration  in  two  ways:  Cl)  the  cutout  and  interpolated 
feedback  field  is  compared  and  (2)  the  full  field  just  before  the  hole-coup¬ 
ling  mirror  is  compared.  When  the  differences  between  two  consecutive  itera¬ 
tions  fall  within  given  tolerances  (10%  for  the  feedback  field,  2%  for  the 
hole-coupler  field  and  0.7%  for  the  power  at  the  output  of  the  resonator), 
the  field  is  said  to  have  converged,  i.e.,  the  lowest  loss  mode  has  been 
selected.  A  more  detailed  description  of  the  meaning  of  each  IFLOW,  its  func 
tion,  and  its  associated  namelist,  if  any,  follows: 

IFLOW  »  1  (GDL.  422-*GDL.446) 

A  GDL  cavity  is  applied  to  the  field.  NEWCAV  is  calculated  to  see  if  the 
beam  has  been  in  the  cavity  before.  The  namelist  used  in  CAVTY1. 

CALLS  CAVITY. 

NAME  LIST/ CAVTY 1 /NCAVNO ,  ILR,  NSTE ,  NPLT,  ZPR0P1,  ZPROPO 
N'CAVNO  IS  THE  NUMBER  ASSIGNED  TO  CAVITY  FOR  IDENTIFICATION 
ILR  INDICATES  DIRECTION  OF  FIELD  THROUGH  CAVITY 
«  -1  RIGHT  TO  LEFT 

=  +1  LEFT  TO  RIGHT 

NSTE  CONTROLS  TYPE  OF  VAMP  CODE  BETWEEN  SEGMENTS 
=  1  CONSTANT  MESH  WITH  SETUP 

*  2  VARIABLE  MESH  WITH  SETUP  (EXITS  VAMP  AT  END  OF 

ELEMENT) 

*  3  VARIABLE  MESH  WITH  SETUP  (REMAINS  IN  VAMP) 
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=  i  USE  EXISTING  PROPAGATING  MATRIX  (EXITS  VAMP) 

=  S  USE  EXISTING  PROPAGATING  MATRIX  (REMAINS  IN  VAMP) 

NPLT  CONTROLS  INTERMEDIATE  PRINTOUT  FOR  CAVITY 
=  0  NO  PRINTOUT 

=  1  PRINT  FIELD  BEFORE  AND  AFTER  GAIN,  AND  GAIN  COEFFICIENT 

ZPROPI  IS  PROPAGATION  DISTANCE  FROM  PREVIOUS  OPTICAL  ELEMENT  TO  CAVITY. 
ZPROPO  IS  PROPAGATION  DISTANCE  FROM  CAVITY  TO  NEXT  OPTICAL  ELEMENT 
I FLOW  *  2  (GDL.S27-GDL.S58) 

Here  the  parameters  necessary  for  application  of  a  mirror  are  set  up. 
The  namelist  read  is  MIROR.  CALLS  MIRROR 

NAMELIST/MIROR/ANGXX,  ANGYY,  RADC,  DIAOUT,  DIAIN,  XMPOS,  YMPOS,  RMIR, 

X  DELIA,  DISTF,  DQUTY,  DINY,  RANULS,  PHIAST 

ANGXX  IS  TILT  IN  x-DIRECTION  -  RADIANS  (WRT  OPT.  AXIS) 

ANGYY  IS  TILT  IN  y-DIRECTION  -  RADIANS  (V.'RT  OPT.  AXIS) 

RADC  IS  RADIUS  OF  CURVATURE  OF  SPHERICAL  MIRROR 

DIAOUT  IS  OUTSIDE  DIAMETER  OF  MIRROR 

DIAIN  IS  INSIDE  DIAMETER  OF  MIRROR 

XMPOS  IS  X-DISPLACEMENT  OF  MIRROR  FROM  OPTICAL  AXIS 

YMPOS  IS  Y-DISPLACEMENT  OF  MIRROR  FROM  OPTICAL  AXIS 

RMIR  IS  REFLECTIVITY  OF  MIRROR 

DELTA  IS  CENTER-TO-EDGE  DISTORTION  FACTOR  (CM) 

DISTF  IS  MIRROR  DISTORTION  FACTOR  (DEFLECTION*DISTF*I* 

(1 . 0-RMIR) ) 

RANULS  IS  OUTSIDE  RADIUS  OF  .ANNULAR  BEAM  (IF  APPLICABLE) 

DOUTY  FLAGS  THE  TYPE  OF  APERTURE  APPLIED  - 

.EQ.  0  -  CIRCULAR  APERTURE  DEFINED  AS  ABOVE 

.NE.  0  -  RECTANGULAR  APERTURE,  DIAOUT  HIGH  (X)  BY 
DOUTY  WIDE  (Y) 
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DINY  IS  SIMILAR  TO  DDUTY  FOR  INSIDE  DIMENSIONS 
PHIAST  IS  THE  ANGLE  OF  INCIDENCE  OF  THE  BEAM  IN  DEGREES 

I  FLOW  =  3  (GDL.  578-KjDL  .612) 

For  this  IFLOW,  a  propagation  step  is  applied.  Relevant  parameters  are 
found  in  namelist  PRCPGT.  CALLS  STEP. 

NAMELIST/PROPGT/DELZ,  RDCURV,  WINDOX,  WINDOfC,  IIFG,  IITR,  IIPS 
DELZ  IS  PROPAGATION  DISTANCE 
RDCURV  IS  RADIUS  OF  CURVATURE  OF  PHASE  FRONT 
IF  CABS  (RDCURV)  .IT.O.S)  USE  RADCUR  OF  PREVIOUS 
MIRROR 

WINDOX  IS  X-SPACE  DATA  WINDOW  FOR  FFT 

WINDOK  IS  K-SPACE  DATA  WINDOW  FOR  FFT 

IIFG  IS  A  VAMP  CONTROL  PARAMETER 
=  1  FOR  CONSTANT  MESH 
=  2  FOR  VARIABLE  MESH 
IITR  IS  ANOTHER  VAMP  CONTROL  PARAMETER 
=  0  NO  INVERSE  TRANSFORM 
=  1  INVERSE  TRANSFORM  BACK  TO  REAL  SPACE 
IIPS  IS  FOR  CORRECTION  OF  PLANE  AND  SPHERICAL  PHASE 
FRONTS 

*  0  NO  CORRECTION 

*  1  PLANAR  CORRECTION  ONLY 

=  2  QUADRATIC  CORRECTION  ONLY  (NOT  OPERATIONAL) 

=  3  BOTH 

IFLOW  =.  4  (GDL. 613-K1DL .631) 

Here  an  aperture  is  applied.  IF  DOUT  and  DIN  are  both  less  than  0, 

SLIVER  is  called.  If  both  are  greater  than  or  equal  to  zero,  APRTR  is  called. 
The  relevant  namelist  is  APTUR. 
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NAMELIST/ APTUR/DOUT,  DIN,  XPOS,  YPOS,  YOUT,  YIN 

DOUT  IS  OUTSIDE  DIAMETER  OF  APERTURE 

DIN  IS  INSIDE  DIAMETER  OF  APERTURE 

XPOS  IS  x-DISPLACEMENT  OF  APERTURE  FROM  OPTICAL  AXIS 
YPOS  IS  /-DISPLACEMENT  OF  APERTURE  FROM  OPTICAL  AXIS 

YOUT  FUGS  THE  TYPE  OF  APERTURE  APPLIED  - 

.EQ.O  -  CIRCULAR  APERTURE  DEFINED  AS  ABOVE 

.NE.O  -  RECTANGULAR  APERTURE,  DOUT  HIGH  (X)  BY 
YOUT  WIDE  (Y) 

YIN  IS  SIMIUR  TO  YOUT  FOR  INSIDE  DIMENSIONS 
I  FLOW  =  5  (GDL.632-»GDL.652) 

Thermal  Blooming  is  applied  to  the  complex  field,  BLOOM  is  read  in  and 
subroutine  T0L^M  is  called. 

NAMELIST/BLOOM/ ALFA,  SCP,  T,  RHO,  ZLEN ,  NSTEPS,  INPT,  NPROP,  AXIAL,  DT 


AFU 

3 

MEDIUM  ABSORPTION  COEFFICIENT,  CM-1 

SCP 

= 

MEDIUM  SPECIFIC  HEAT,  J/GM-DEG  K 

T 

MEDIUM  TEMPERATURE,  DEG  K 

RHO 

= 

MEDIUM  DENSITY,  GM/ CM3  (OR  TRANSVERSE  VEL 

IF  . GT . 1 , ) 

ZLEN 

3 

MEDIUM  THICKNESS  ALONG  OPTICAL  AXIS 

NPROP 

s 

PROPAGATION  PARAMETER.  .  .SAME  AS  NSTE  IN 

CAVITY 

NSTEPS 

3 

NUMBER  OF  ELEMENTS  IN  SUBSYSTEM,  .GE.  1 

INPT 

3 

.NE.O  FOR  INTERMEDIATE  FIELD  PLOTS 

AXIAL 

= 

'axial  VELOCITY  (CM/SEC)  IF  .GT.  0,  USES 
AXIAL  BLOOMING 

DT 

3 

BEAM  ON  TIME  FOR  THERMAL  BOUNDARY  UYER 

GROWTH  IN  TRANSIENT  BLOOMING  CALCS.  IF 

DT.GT.O  USES  TRANSIENT  BLOOMING 

I FLOW  *  6 

(GDL.653-K3DL.779) 
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For  this  option  the  field  can  be  cut  out  and  interpolated  from  one 
region  size  to  another.  The  number  of  points  is  not  changed.  If  CUSMF  is  not 
equal  to  zero,  the  field-averaged  feedback  field  is  stored  on  unit  8  and  the 
convergence  checks  are  made  on  the  feedback  field  and  the  pre-HCM  field  which 
is  stored  on  unit  7  temporarily.  The  field  for  the  bare -resonator  is  renor¬ 
malized  at  this  point  to  unit  maximum  intensity.  Namelist  CUTOUT  has  the 
information  for  the  new  region  in  it  as  well  as  other  parameters. 

NAMELIST/CUTOUT/DIBEAM,  OVRLAP,  DXXR,  DYYR,  MAXIT,  AVCUSM,  CUSMF 

CUSMF  =  1.  FOR  NORMAL  LOADED  RESONATOR  CUTOUT 

CUSMF  =  0.  AVOIDS  WRITING  FIELD  ON  8  AND  AVOIDS  NORMALIZ¬ 
ING  FIELD,  CHANGES  TO  THE  NEW  COORDINATES, 

THEN  RETURNS. 

DIBEAM  IS  THE  DIAMETER  OF  BEAM  FOR  NEXT  ITERATION 
OVRLAP  IS  DCALC  =  OVRLAP*DIBEAM 

DXXR  IS  POSITION  OF  ITERATIVE  BEAM  REL.  TO  OPTICAL  AXIS 
DYYR  IS  THE  SAME 

MAXIT  IS  THE  MAXIMUM  NUMBER  OF  ITERATIONS 
AVCUSM  AVERAGES  PREVIOUS  AND  NEXT  ITERATION  GUESS  IN  THE 
HOPE  OF  RAPID  CONVERGENCE ... =0  NO  AVE,  =  .5  HALF  .AND  HALF 
I FLOW  =  7  (GDL.795-GDL.842) 

There  is  no  namelist  associated  with  this  option.  The  convergence  check 
on  the  power  is  made  here.  If  the  solution  has  not  yet  converged,  the  gain/ 
phase  information  is  updated  by  a  call  to  REGAIN,  then  the  resonator  is  re¬ 
started  for  the  next  pass. 

I FLOW  =  8  (GDL.500*GDL.513) 

If  the  parameter  plot  is  non-zero  in  namelist  START  in  SOQ,  this  IFLOW 
will  generate  printer  plots  by  a  call  to  IPLOT.  Namelist  PLOT  is  read. 

NAMELIST/PLOT/TITLE  RADPLT 

TITLE  IDENTIFIES  THE  POSITION  OF  EACH  STATION  PLOTTED 
RADPLT  CONTROLS  THE  TYPE  OF  PLOT 

=  0.0  FOR  X, Y  PLOTTING  (X-AXIS,  Y-AXIS,  DIAGONAL) 


*  1.0  FOR  RADIAL  PLOTTING  AT  VARIOUS  THETAS 

I FLOW  *  9 

This  IFLOW  only  results  in  the  return  to  the  main  program,  SOQ. 

I FLOW  =  10  (GDL.447-GDL.475) 

This  option  allows  the  field  to  be  read  in  from  or  read  to  a  specific 
unit  in  standard  SOQ  format.  It  calls  no  peripheral  subroutines  and  reads  the 
unit  designation  from  namelist  DISKIT. 

NAMELIST/DISKIT/ IREAD,  IWRITE,  IORD,  I ADD 

IREAD  IS  THE  DISK  #  TO  BE  READ  OFF/ON...  IF*0. . . DON’T 

READ 

IWRITE  IS  THE  DISK  *  TO  BE  WRITTEN  ON...  =0.-.. DON’T  WRITE 

IORD  IS  THE  ORDER  =  1,  READ  FIRST 
=-l,  WRITE  FIRST 

I ADD  =  1  UPDATES  IWRITE  BY  1  FOR  SUCCESSIVE  ITERATIONS 
IFLOW  *  11  (GDL.476-GDL.482) 

This  option  applies  an  aerodynamic  window  to  the  complex  field.  It  reads 
no  namelist  and  calls  AEROW  to  perform  the  calculation. 

IFLOW  =  12  (GDL.485— GDL.499) 

The  field  can  be  scaled  using  this  option.  At  the  same  time  the  x  array 
can  also  be  magnified.  No  subroutines  are  called  and  MULT  is  read. 

NAMELIST/MULT/TRANS,  XMAG 

TRANS  IS  TRANSMISSION  OF  ELEMENT 

XMAG  IS  MAGNIFICATION  FACTOR  FOR  THE  X-ARRAY 

IFLOW  a  13  (GDL.514-GDL.526) 

This  option  flips  the  field  about  its  y-axis.  No  namelists  are  read 
and  no  subroutine  called. 

IFLOW  »  14  (GDL.408-GDL.421) 


This  option  imposes  a  sinusoidal  density  (phase)  variation  to  the  exist¬ 
ing  complex  field.  It  calls  no  subroutines,  but  it  reads  SINDEN  for  informa¬ 
tion  on  the  sine  wave. 

NAMELIST/S INDEN/NBEAM,  AWL 

NBEAM  IS  THE  NUMBER  OF  CYCLES  PER  X-CALCULATED  REGION 
AWL  IS  THE  AMP/WL  OF  THE  SINUSOIDAL  VARIATIONS 
I FLOW  *  IS  (GDL. 780+GDL. 793) 

The  field  can  have  superimposed  on  it  a  different  number  of  mesh  points. 
The  spacing  between  two  adjacent  points  does  not  change  unless  RGRD  is  called. 
Just  the  number  of  points  in  the  mesh  changes.  If  the  number  of  points  is 
increased,  RGRD  adds  zeros  to  the  outside  of  the  existing  region.  This  option 
reads  namelist  REGRID 

NAME  L I ST/REGRI D/NGRD 

NGRD  IS  NO.  OF  FIELD  POINTS  ACROSS  REGRIDDED  DCAL 
I FLOW  =  16  (GDL.390-GDL.406) 

In  this  I FLOW,  no  subroutine  is  called  and  no  input  is  read.  The  field 
and  coordinates  are  written  format  to  TAPE  4  in  cards  to  be  punched. 

I  FLOW  *  17  (GDL.  559-HjDL.  557) 

Quiescent  thermal  gradients  are  imposed  by  this  option.  Namelist  THRML 
is  read  and  subroutine  THERML  is  called. 

NAME LIST/THRML/ ALPHAM ,  CONMIR,  ALPHAG,  RHOGAS,  TAU,  TIN,  REFMIR,  CONGAS 
THRML  IS  THE  NAMELIST  FOR  BOUNDARY  LAYER  THERMAL  LENS 
CALCULATIONS 

ALPHAM  *  MIRROR  DIFFUSIVITY  (CM2/SEC) 

CONMIR  *  MIRROR  THERMAL  CONDUCTIVITY  (WATTS/CM-SEC) 

ALPHAG  *  THERMAL  DIFFUSIVITY  OF  GAS  HEATED  BY  MIRROR 
(CM2/SEC) 
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CONGAS  »  THERMAL  CONDUCTIVITY  OF  GAS  HEATED  BY  MIRROR 
(WATT/CM-SEC) 

RHOGAS  *  DENSITY  OF  GAS  HEATED  BY  MIRROR  (GM/CC) 

TAU  »  BEAM  ON  TIME  FOR  BOUNDARY  LAYER  GROWTH  (SEC) 

TIN  »  INITIAL  TEMPERATURE  OF  GAS  §  MIRROR  (DEG  K) 

REFMIR  *  MIRROR  REFLECTIVITY  (OBTAINED  FROM  MIRROR 

INPUT) 

THERMAL  MAY  BE  APPLIED  AFTER  ANY  MIRROR  TO  ALTER  THE  GAIN- 
PHASE  DUE  TO  HEATING  OF  THE  QUIESCENT  BOUNDARY  LAYER 
ADJACENT  TO  THE  MIRROR  SURFACE. 

I  FLOW  *  18  (GDL.  378-*GDL.  389)  • 

With  IFLOW  =  18,  a  spider  obscuration  can  be  applied.  Subroutine  SPIDER 
is  called  using  the  information  read  in  with  namelist  SPIPP. 

NAMELIST/SPIDR/NSPD,  WIDTH,  THETA,  XSPC,  YSPC,  DIH 

NSPD  *  NUMBER  OF  STRUTS  IN  SPIDER  (MAX=6) 

WIDTH  =  WIDTH  OF  SPOKES  IN  SPIDER 

THETA  =  .ANGLE  OF  INDIVIDUAL  SPOKES  OF  SPIDER 

XSPC  =  x- LOCATION  OF  CENTER  OF  SPIDER 

YSPC  *  y- LOCATION  OF  CENTER  OF  SPIDER 

DIH  a  HUB  DIAMETER 

IFLOW  »  19  (GDL.  366-*GDL.  377) 

This  option  allows  for  the  application  of  an  axicon.  Subroutine  AXICN 
is  called  after  namelist  AXICON  is  read. 

NAMELIST/ AXICON/CAPR ,  EXPAND,  ROC,  DISP,  TILT 

CAPR  IS  THE  OUTSIDE  RADIUS  OF  THE  ANNULAR  EXTRACTION  BEAM. 

(EXPAND. EQ.  .TRUE.)  MEANS  THE  BEAM  IS  GOING  FROM  CIRCULAR 
TO  ANNULAR  IN  CROSS-SECTION 

ROC  *  RADIUS  OF  CURVATURE  OF  THE  FIELD  IN  PHYSICAL 

SPACE 
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DISP 


=  DISPLACEMENT  OF  AXICON  FROM  CENTER  ALONG 


X-AXIS 

TILT  =  ANGLE  (RADIANS)  OF  AXICON  TILT  FROM  DIRECTION 

OF  PROP. 

I  FLOW  =  20  (GDL.  347-*GDL.  365) 

This  option  propagates  an  unrolled  annulus.  After  reading  in  namelist 
RPROP ,  it  then  calls  subroutines  RSTEP  to  perform  the  propagation  and  POWR 
to  determine  the  power  after  propagation. 

NAMELIST/RPROP/DELZR,  DELZTH,  WINDOX,  WINDOK 

DELZTH  IS  PROPAGATION  DISTANCE  FOR  THE  RADIAL  COORDINATE 
DELZTH  IS  PROPAGATION  DISTANCE  FOR  THE  ANGULAR  COORDINATE 
*** (DELZR  .NE.  DELZTH)  MEANS  YOU  ARE  MAKING  AN 
EQUIVALENT  COLLIMATED  BEAM  PROPAGATION  STEP 
IN  R-THETA  COORDINATES*** 

WINDOX  IS  X-SPACE  DATA  WINDOW  FOR  FIT 

WINDOK  IS  K-SPACE  DATA  WINDOW  FOR  FFT 

I FLOW  =  21  (GDL.329+GDL.346) 

This  option  allows  for  the  removal  of  the  center  of  the  beam  which  is 
then  stored  on  unit  20,  or  it  can  allow  for  the  addition  of  a  field  read  from 
unit  20  modified  by  a  phase  change.  This  work  is  all  done  in  subroutine 
FIELDS  using  the  information  read  in  from  namelist  CENTER 

NAME  LIST/ CENTER/ DSM ,  REMOVE,  PHIARB 

DSM  IS  THE  DIAMETER  TO  BE  REMOVED  AND  LATER  ADDED  TO  THE 
MAIN  BEAM 

REMOVE  FLAGS  THE  ACTION 

.TRUE.  IF  THE  CENTER  PORTION  OF  THE  BEAM  IS  TO  BE  REMOVED 

.FALSE.  IF  THE  REMOVED  PORTION  IS  TO  BE  ADDED  BACK  TO  THE 
BEAM 

PHIARB  IS  AN  ARBITRARY  PHASE  CHANGE  ADDED  TO  THE  CENTRAL 
PORTION 
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I  FLOW  *  22  (S0Q77CYl.169-t.S0Q77CYl.181) 

This  option  flips  the  field  about  the  x-axis.  No  input  is  required  and 
no  subroutines  are  called. 

Argument  List 

IN  -  INPUT  UNIT  FOR  RESONATOR  DATA 

RESTRT  -  NEW  OR  OLD  RESONATOR? 

ABC  -  PARAMETER  ARRAY 

NITER  -  CURRENT  ITERATION 

IB  -  INPUT  UNIT  »  OF  OLD  FIELD 

I FLAG  -=  1  TRANSFERS  TO  OLD  ENTRY  POINT  -  READS  FIELD  FROM  IB/ 
CONTINUES. 

ABC  and  NITER  can  be  redefined  by  this  subroutine. 

Common  Variables  Modified: 


The  common  variable  not  modified  by  GDL  are: 

WL,  NPTS ,  NPY ,  RADCUR,  WNOW  and  NREG.  Note  that  NBC  is  modified  by  its 
equivalence  with  I GDL  and  IDIR. 

SUBROUTINE  GDL  76/176  OPT-1  FIN  4.6+452  04/27/79  12.23.47 


SutfPUuTlNC  OuL  (  IN.PtSTPT.AaC.Nl TEP.  la.  IFLAO)  OOL  2 

C  OPTICAL  CALCULATIONS  POUTInO  POUTINfc  t»OL  J 

C  BY  MEANS  Of  THE  INPUT  ILCOnTMLI  THC  UStH  INSTPUCIS  THIS  POUTINE  OOL  A 

C  TO  3IPECT  THfc  CALCULATION  uF  OPTICAL  tFFtCTS  OF  APEPIUP ES*  OOL  5 

c  mippoks.  CAYirits.  trc.  ool  t 

C  IFLAGpI  TPANS^EpS  TO  OLU  AUTO  fcNlPY  POINT  OUL  t 

OOL  0 

C  In  is  unit  CuntaInino  inpoi  uata  fop  lonFIoupation  OOL  9 

C  PESTPT  IS  CONTPUL  Fop  PtSTAPIlNO  CALCULATIONS  FPOM  PPEVIUUS  PUN  OOL  111 

C  «  .TPUt.  IF  HtSTAPTlNO  OOL  U 

C  »  .false,  if  nut  ool  12 

OOL  13 

c  OOL  1* 

LEVEL  it  CU.CFIL2.CFFL  OOL  IS 

COMMON/MELT/CU  < 1630*) *CF IL ( 16S12) .AT  1201 .PL. NPTS. NPY .OPA.OPY  OOL  16 

COPMON/PPPPOP/PAOCUP.ANOA.ANOY  OOL  17 

COMMON/  *At  /  ANOP.NPEO.PAPTP  OOL  10 

COMMON/ 2  IP/ ILAV* IMIHt IS  TbP.NUS. 1 AP. IP  TT . 1  TP AN. I THPML .1AA.1PSTP.  OOL  19 
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A  ICUT.MLT.IOK.ITM.ICEK.NCT 
COMMON  /VIA Z/  APLft JQ.2U) .  NBC (180),  SAVE  1 10) 

COMMON  /INI IL/  1NT 

DIMENSION  101R(*»2*I  .  IGOLCVG)  ,  ABC  (12,20. 9)  .CFFL 1 16 ■»»*»  .  IUSK  I  *.9)  . 
AT At (262) • XX (128) ,AOUM< 126) .ERROR ( 10) . i ITLE (20) .CF IL2 ( 16JB*) , t ( 126) 
A.2LI ( 12)  <ZLO(  12)  .GNOTE (20)  .GivUT  (SO. 20 )  •  1  HE T A  (61  .CPRT*)  »APNU(  *)  • 

A  0SMM(20)  ,RMV  (20)  .PMIAI20)  .MCUHVt(A)  ,0SP<*>  «  TLT  (4)  1 ICAVK  16) 

01 MENS ION  IPlTS(SO) 

COMPUSA  CFFL.CF I L2 . CU «CF 1U t CPLN T « CF AC T T • CUO 

LOGICAL  INI T  .RE5TH  T.aHY  •  tAPANO.APNO  »  REMOVt.MMV 

EQUIVALENCE  (NbC(l)  tIGOUll)  I  •  (NBC  1 100)  •ll)IHIl(l)  ) 

EQUIVALENCE  (CF IL ( 1 ) .CFFL ( l ) ) < (CF IL2 ( l ) «CU ( 1 ) >  <  ( ICAV <  1CAV2 ( 1  > ) 
OATA  IFLUG, TITLE  /9.20**H  /  ,  IPLUTS  /  0  / 

DATA  NCAVNOf 1LR.NSTE »NPLT , ZPROP I .ZPRUPO  /U« l . 1 .0.2*0./ 

OATA  ANGXX. ANGYY.RAOC.OIAUUT «U 1 AIN, AMPOS*  YMPOS.HMIR ,UELT A.01STF 

X  / 0.0*  0.0.  0.0.  0.0.  0.0.  0.0.  0.0.  1.0.  0.0  .  0.6/ 

OATA  RANULS,  OOUTt.  01NY.  PMlAST 
A  /U.0«  0.0.  0.0.  0.0/ 

OATA  OELZ.  ROCURV.  a INOOA . a I NOOK . IIFG. I I TR. I IPS 
A  /0.0*  0.0.  0.1.  0.1.  1.  0.  0/ 

OATA  OOUl.OIN.APOS.TPOb. TOUT* YIN/  6*0.0/ 

OATA  0I6EAM.0VHLAP.  OXAR.  UYYH  ,  MAX I T .  AVCUSM  /**0. 0. 1 .0.0/ 

OATA  CUSMF/1./ 

OATA  HAOPLT/U.O/ 

OATA  ALFA.SCP. T .MHO. 2LEN.NbTtPS. 1NPT.NPP0P*AAIAL/S*0. 0.1.1. 0.0.0/ 
OATA  OT  /0.0/ 

OATA  1R£A0,  1»P1IE.  I UNO.  1AOO  /0. 0.1.0/ 

OATA  TRANS.  AMA 6  /l. 0.1.0/ 

OATA  NBEAM. AwL  /0.0.0/ 

OATA  NGPO  /2/ 

OATA  ALPham.CONMIR, ALPHAG.MHUGAS, (AU. T IN, REFMIR. CONGAS 
A/6*0. 0.1. 0.0.0/ 

OATA  CAPH.EAPANU.ROC  / JO . . . I «u£ . .0. 0/ .  OlbP . T IL I/O. .0 ./ 

OATA  UELZR.  OEL2TH.  alNOUX.  alNUUK 

X  /O.U,  0.0.  0.1.  u.l/ 

OATA  OSM  .  REMOVE  .  PmIAHB 

A  /O.U.  .THUt.  .  0.0  / 

OAT  A  OlH.ASPC.VSPC.alUTH, (RE  I A.NbPO/ 10 . 1*.0 . , 0. . ,*2J.-120. . 

A  0. .**0. .2/ 

NAMELIST/  CUNTML  /  IFLOg.gnUIE.IPLUTS 

iflow  controls  t he  flo*  of  calculations  through  gul 

a  1  CAVITY  ELEMENT,  ReADS  CAV  TYI.CAVTY2 

*  2  MIRROR  tLtMCNT,  HeAUS  Ml HUH 
»  J  VAMP  tLEMENl.  HEAuS  PROPUT 

*  *  APERTURE  ELEMENT.  HEAUS  APT  OR 

*  s  thermal  blooming.  reaus  bloom 

a  6  INTERPOLATE  FIELD  over  SMALLER  AREA.  RtAOS  cutout 
a  7  TEST  FOR  CONVERGENCE  OF  ITERATION,  NO  INPUT 

*  d  PLOT  FIELO  OISTRIoUI ION.  REAUS  IDLE 

a  9  RETURN  CONTROL  TU  CALLING  PROGRAM,  NO  INPUI 

a  10  REAU  ANU/OR  aRl IE  CU  UN  U1SK.  REAUS  UISKlI 

a  11  AERO  4 InOOa  R.M.S.  PHASE  MOOEL.  NO  INPUT 
a  12  SCALING  ROUTINE. ..MULTIPLIES  ENTIRE  FIELO.  HEAUS  MULT 
a  1J  FLIPS  The  FIELD  ABOUT  THE  T-AA1S.  NO  INPUT 
a  1*  SINUSOU 1UAL  DENSITY  VARIATIONS.  REAOS  SINUEN 
a  IS  HEORIDS  FIELD  ID  LARGER  SI2E.  READS  MEGHIU 

a  16  CU  PUNCHEU  ON  CARDS.  NU  INPUT 

a  u  mirror  thermal  bl  model,  reads  thhml 
a  16  SPIDER  ROUTINE.  READS  SP10K 
a  19  AAICN  ROUTINE.  READS  AAICUN 
a  20  PROPAGATE  IN  R-THEIA  SPACE,  REAOS  RPHDP 
a  21  REMOVES  OR  AOUS  BACK  BEAM  CENTER.  REAOS  CENTER 
•  22  FLIPS  THE  BEAM  ABOUT  THE  A-AAlS*  NU  INPUT 

{PLOTS  IS  The  PRINTER  PLOT  SELECTOR.  1PL0TS»ABC0E  bhERE  A»1  SELECTS 
R-TMETA  PLOTS.  Sal  SELECTS  1SU  INTENSITY  PLOT  ,  Cal  SELECTS  A  AAIS 
PLOT,  0*1  SELECTS  DIAGONAL  PLUI,  AND  Ea|  SELECTS  Y  AXIS  PLOT,, 
EXAMPLE— IPLOTSalOOl  SELECIS  ISO  INTENSITY  A  NO  Y  AXIS  PLOTS  IN 
A-Y  COORDINATES. 

NAMELIST  /CAVTYl/  NCAVNO.ILR.NSTE.nPLT.ZPROPI.ZPROPO 
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GOL 

GUL 

C10FLA 

GUL 

ClUFLA 

GOL 

GOL 

GOL 

GOL 

CIOFLA 

GOL 

GOL 

GOL 

GUL 

GOL 

C10ASTG 

C1UASTG 

GUL 

GUL 

SGAPH 

GOL 

CYCLE9 

GOL 

GOL 

GOL 


GOL 

GOL 

GOL 

SUU77CY1 

GUL 
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GOL 

NCAVNO  is  Tut  NUMtttX  ASSIGivEQ  TO  CAVITY  F  DM  IDENTIFICATION  GOL 

ILH  INDICATES  DIRECTION  OF  FIELD  r HHUUGM  CAVITY  GOL 

a  -1  RIGHT  TO  LEFT  GOL 

a  *1  LtFT  TO  RIGHT  GOL 

NSIC  CONTROLS  TyFE  OF  VAMP  CODE  BETafiEN  SEGMENTS  GOL 

a  1  CONSTANT  MESH  allh  SETUP  GOL 

a  i  VARIABLE  MESH  alTn  SETUP  TEAITS  VAMP  Al  END  OF  ELEMENT  I  GOL 

a  J  VARIABLE  ME Sh  aim  SETUP  THEMAINS  IN  VAMP)  SOL 

a  *  OSE  EA1SI I NO  PHOPaGAT ING  MATRIX  (EXITS  VAMP)  DDL 

a  s  ose  existing  pmopagai'ing  matrix  (remains  in  vamp)  gul 

nplt  controls  intermediate  printout  for  cavity  sol 

a  0 ' NO  PRINTOUT  GOL 

a  I  PRINT  FIELD  dEFOHE  AND  AFTER  GAIN.  ANO  GAIN  CO-E FF  GUL 

ZPHOPl  IS  PROPAGATION  DISTANCE  FROM  PREVIOUS  OPT.  ELEMENT  TO  CAV.  GUL 
ZPHOPO  IS  PROPAGATION  DISTANCE  FROM  CAV.  TD  NEXT  OPTICAL  ELEMENT  GUL 

GUL 

NAMELlST/MiHUN/ANGXX.ANGYY.NAUC.UIAUUr  tDIAlN. AMPOS.YMPOStRMIR.  GUL 

X  DELTA. UISTF.OOUTY.OINY.RANULS.PHIAST  CIOASTG 

C  GUL 

C  ANGXX  IS  TILT  IN  X-OIHECTIUN  “  RADIANS  (HHT  OPT.  AXIS)  GUL 

C  ANGYY  IS  TILT  IN  Y-DlH£Cri0N  «  RADIANS  («MT  OPT.  AXIS)  GUL 

C  RAOC  IS  RADIOS  OF  CURVATURE  OF  SPHERICAL  MIRROR  GUL 

c  oiAooi  is  outside  diameter  of  mihrur  gol 

c  ui ain  is  inside  diameter  of  mirror  gul 

C  XMPOS  IS  X -DISPLACEMENT  OF  MIRROR  FROM  OPTICAL  AXIS  GUL 

C  YMPOS  IS  Y -DISPLACEMENT  OF  MIRROR  FROM  OPIICAL  AXIS  GOL 

C  RMIR  is  REFLECTIVITY  OF  MIrROR  GOL 

C  DELTA  IS  CENTEH-TU-EOGE  DIsIOHIION  FACTOR  (CM)  GOL 

C  OISTF  IS  MIRROR  OIST.  FACTOR  (OtFLtCI IONbOISIF*1*U.U-HMIh) )  GOL 

C  RANOLS  IS  OUTSIDE  RADIOS  OF  ANNULAR  SEAM  (IF  APPLICAOLE)  GOL 

C  DOUTY  FLAGS  The  type  of  aperture  APPLIED  -  SUAPH 

C  .EU.  0  -  CIRCULAR  APERTURE  OEF INEO  AS  AMOVE  SUAPR 

C  .NE.  0  -  RECTANGULAR  APERTURE.  OlAOOT  HIGH  (X)  BY  OOOTY  »IOE  SUAPR 

C  oiny  is  similar  to  uooty  fur  Insiue  dimensions  suaph 

C  PmIaST  IS  Tut  ANGLE  OF  incidence  OF  The  BEAM  —  DEGREES  C10AS1G 

C  GOL 

NAMELIST/  PRUPGT  /  OELZ .  ROCUHV .alNOOX .alNDOK . I  IF G. I ITR. I IPS  GUL 

C  GOL 

C  OELZ  IS  propagation  oistanle  gul 

C  ROCUHV  IS  SAOIOS  Of  CUHVATuRt  OF  PHASE  FRONT  GOL 

C  IF  AaS(ROCUPV)  LT  O.S  USE  RAOCOH  OF  PREVIOUS  MIRROR  GOL 

C  alNOOA  IS  X-SPACt  OATA  alNDOa  FOR  FF  T  GOL 

C  Hi NOOK  IS  A— SPACE  OATA  HlNUOH  FOR  FF T  GOL 

C  IIFG  IS  A  VAMP  CONTROL  PAHaMeIEH  GOL 

C  a  i  FOR  CONSTANT  MESM  GUL 

C  a  £  FOR  VARIAGLE  MESH  GOL 

C  I ITR  IS  ANOTHER  VAMP  CONTROL  PARAMETER  GOL 

C  a  0  NO  INVERSE  THANfuHM  GOL 

C  •  l  INVERSE  TRANSFORM  BACK  TO  REAL  SPACE  GUL 

C  GOL 

C  I  IPS  IS  FOR  CORRECTION  OF  PLANE  ANU  SPMEHtICAL  PRASE  FRONTS  GUL 

C  a  0  NO  CORRECTION  GUL 

c  a  i  PLANAR  CORRECTION  ONLY  GOL 

C  a  2  UUAURAT1C  CORRECTION  ONLY  (NUT  OPERATIONAL)  GUL 

C  ■  J  BOTH  GUL 

C  GUL 

NAMELIST  /APTUM/  UUUT.UIN.APOS.YPOStYUUT.YIN  SUAPR 

C  GOL 

C  OOUT  IS  UUTSIOE  DIAMETER  of  aperture  gul 

C  UlN  IS  INSIDE  DIAMETER  OF  APERTURE  GOL 

C  XPOS  IS  X-OISPLACEMENT  OF  APEMTUHt  FROM  OPTICAL  AAlS  GOL 

C  YPUS  IS  Y -DISPLACEMENT  OF  APERTURE  From  OPTICAL  AAlS  GOL 

C  YOUT  FLAGS  The  TYPt  OF  APtRlORE  APPLitO  -  SUAPR 

C  .EU.  A  -  CIRCULAR  APERTURE  DEF l NED  AS  ABOVE  SUAPH 

C  .Nt.  0  -  RECTANGULAR  aPERTOME.  OOUT  HIGH  (A)  BY  YOUT  aiOE  IY  SUAPH 

C  YlN  IS  SIMILAR  TO  TOUT  FOR  INSlUt  DIMENSIONS  SUAPR 

C  GOL 

NAMELISI  /CUTOUT/  OlBEAM.OvRLAP.OXXR tDYYR .MAX IT. AVCUSM* CUSMF  CYCLE9 

C  CUSMFal .  FUR  NORMAL  LOADED  RESONATOR  CUT  00 T  CYCLE9 

C  CUSMF  aO.  AVOIDS  BRIUNG  FIELD  ON  d  ANO  AVOIDS  NORM.  FIELD  UNLOADED  CYCLE9 


as 

09 

90 

91 

92 

93 

94 

95 

96 
9T 

98 

99 
ll)0 

m 

102 

103 

104 

ios 

4 

10T 

108 

109 

110 
111 
112 

113 

114 

ns 

116 

117 

no 

id 

19 

20 
21 

5 

119 

120 
121 
122 
123 
12* 

125 

126 
127 
12b 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 
22 

141 

1*2 

1*3 

I** 

1*S 

23 

2* 

25 

26 
1*6 

3 

» 

5 


129 


c  out 

C  OlBfiAM  IS  T Mt  DIAMETER  OF  atAM  F OH  Nt*T  I  IERAT  ION  bOL 

C  OVPLAP  IS  I  UCALCa  OVNLAP*OIbE AM  «0L 

C  OA  AM  IS  POSITION  Of  ITtHAUvt  BEAM  m  tL  .  to  OPTICAL  AAiS  bUL 

C  Oyyp  is  Th t  Same  ool 

C  MAAtT  IS  THt  MAA  NUMBEH  OF  lttHATlUNS  bOL 

C  bOL 

C  AVCUSM  AVtPAbtS  PPtvlOUS  Nt A  I  IttPATION  UUESS  IN  THE  MOPE  bOL 

C  OF  HAIPIU  CUNVtHbtHCt. • .  >  0  NO  AV.  a. 5  ITS  HALF  AND  HALF  bOL 

C  bUL 

NAMELIST/  PLOT  /  TITLE  *  hAUPLT  bOL 


1*8 

1*9 

ISU 

1SI 

IS* 

ISA 

ISA 

155 

156 
1ST 
IS8 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

£ 

c 

c 

c 

c 


TITLE  iOEnT IT ItS  Tut  POSITION  OF  t ACH  STATION  PLOTTED 
HAUPLT  CONTROLS  I Ht  lYPt  OF  PLOT 

*  u.o  fop  a.y  plotting  ia-aais*  y-aais.  o I agonal ) 

«  l.U  FOM  HAUUL  PLOTTING  AT  VAHiOUS  THt T AS 

NAMELIST/  GLOOM  /  ALF'A.SCP.  T.PMO.ALtN.NSIEPS.lNPT.NPROP.AAlAL.OT 

ALFA  ■  MtOlUM  ABSORB  I  ION  COEFFICIENT.  CM- l 
SCP  «  MtOlOM  SPECIFIC  MtAT.U/bN-OEG  A 
T  a  MtOlOM  TEMP£HTUMt.  OEb  A 

MHO  a  MtOlOM  DENSITY*  GM/CMj  (OH  TPANSVtHSE  VEL.  IF  .Gl .  1.) 

ZLtN  a  MEDIUM  TmICANESS  ALONG  OPTICAL  AAIS 

NPHOP  a  PHOPAbGGAT ION  PAHAME TCP • . .SAMt  AS  NST t  IN  CAVITY 

NSTEPS  a  NUMBER  OF  ELtMtN ( S  IN  SUBSYSTEM*  .GE.  1 

INPT  a  ,N£ .  0  FOP  INTtMMtDIATE  F ItLO  PLOTS 

AAlAL  a  AAIAL  VELOCITY  (CM/SEC)  IF  bT  0*  USES  AAlAL  BLOOMING 
OT  a  BEAM  ON  TIME  FOM  MtPMAL  BOY  LAYER  GROWTH  IN  ThaNSIENI 
BLOOM ING  CALCS.  IF  or  GT  J.  OSES  TPANSIEN I  BLOOMING 

NAMELIST/  OiSKIT  /  I HEAD*  IwRiTE.  I OHO  »  IAOU 

IPEAO  IS  The  OISA  NUM  To  Bt  PEAO  OFF  OF . . . IFaO . . .OONC T  HE AO 
IaPITt  IS  THE  OISA  a  TO  Bt  aPOTE  ON  a0...DON«T  WHITE 

I OHO  IS  The  OPOtP  a  1*  PtAO  FIPST 
a-l.  WHITE  FIhST 

lAQO  a  I  UPDATES  IWPITE  BY  1  FOP  SUCCESSIVE  ITEPATIONS 

NAMELIST  /  MULT  /  TPANS.  AM AG 

TRANS  IS  TRANSMISSION  OF  bLEMtNT 

NAMELIST  /  SINOEN  /  NBEAH.  AML 

NHEAM  IS  THE  NOMBEH  OF  CYCLES  PEP  A-CALCULATEO  REGION 
AWL  IS  Tn£  amp/wl  OF  The  SINOMSUiUAL  VARIATIONS 

NAMELIST  /HEGHIU/  NGPO 

NGPO  IS  NO.  OF  FIELD  POINTS  ACROSS  REGRIOOtO  OCAL 


NAMEL I S  T  / I HPML/ ALPHAM *  CONM IP  *  ALPH AG • PMOG AS • T  AO  *  T I N • PEF M IP * 
XCONGAS 


C 

C  THPML  IS  THE  NAMELIST  FOM  BOUNUAPY  LATER  THERMAL  LENS  CALCULATIONS 
C  ALPMAMa  MlMMOP  OIFFOSIVITY  CMSU/SEC 

C  CONHIR*  MIPHOR  THERMAL  CONUOCIIVITY  MATTS/CM  SEC 

C  ALPHAS*  THERMAL  OIFFOSIVITY  Of  SAS  HtATEO  BY  MIPHOR  CMSO/SEC 
C  CONGAS*  THERMAL  CONOUC r I V I r y  OF  GAS  HtATEO  BY  MIHHOM  MATT/CM-SEC 
C  RMOGAS*  OENS1TY  OF  GAS  HEAttU  BY  mIhRON  GM/CC 

C  TAu  *  BEAM  ON  TIME  FOR  BOUNUAPY  LAYER  GROWTH  SEC 

C  TIN  *  INITIAL  TEMPERATURE  OF  GAS  A  MIRHOP  OEG  A 

C  REFMIm*  MIRROR  REFLECT IVllY  (UBT A 1NEO  FPOM  MIRROR  INPUT) 

C  «THEPML«MAY  b£  APPL1EO  AFTEP  ANY  MlRMOM  TO  ALTER  THt  GAIN  -  PHASE 

C  DUE  To  HEATING  OF  Tn£  UUIESCEnT  BUUNOAMY  LATER  AOUACENT  TO  (HE 
C  MIRROR  SURFACE. 

C 

NAMELIST/  SPiOH  /NSPO»#IOTh.TmET A.asPC.YSPC.QIH 
c  NSPO  a  NUMBER  OF  STPOTS  IN  SPIUEP  (HAA*6t 

C  WIDTH  w  WIDTH  OF  SPOKES  IN  SPIOtP 

C  TnETA  a  ANGLE  OF  INDIVIDUAL  SPOKES  OF  SPIDER 


bUL 

bOL 

bOL 

bOL 

bOL 

bOL 

bOL 

bOL 

GOL 

GOL 

GOL 

GDL 

GOL 

GUL 

GOL 

GOL 

bOL 

bOL 

bUL 

GOL 

GUL 

bOL 

bOL 

GOL 

GOL 

GOL 

GOL 

bOL 

bOL 

GOL 

GOL 

GOL 

GOL 

bOL 

GUL 

GOL 

GOL 

GOL 

GOL 

GOL 

GOL 

GUL 

GOL 

GOL 

GOL 

GOL 

GUL 

GUL 

GOL 

GDL 

GOL 

GDL 

GOL 

GOL 

GOL 

GOL 

GOL 


1S9 

150 

151 

IS* 
163 
IS* 
1S5 
1SS 
1ST 
l  SB 
ISO 
I  TO 
1  T 1 
IT* 
173 
IT* 
ITS 
1  To 
I  T7 
IT» 
1  79 
180 
181 
18* 
183 
18* 

185 

186 
1ST 
188 

189 

190 

191 

192 

193 
19* 

195 

196 
19T 

198 

199 

200 
2U1 
202 
203 
20* 

205 

206 

207 

208 

209 

210 
211 
212 
213 
21* 
215 


C  ASPC  *  X -LUC A I l UN  OF  CtNTEH  OF  SPlOtK 

C  YSPL  »  Y-LOCATIOn  OF  CENItM  OF  SPIDtP 

C  DIM  a  HUB  OIAMtTEP 

C 


GUL 

216 

bOL 

21  7 

GOL 

218 

bOL 

219 

130 


non  o  o  nnonoonr*  nonnnonn  nnnnnnn 


NAMELIST  /  AAlCUN  /  CAPR.LAPANU.RUC.UiSP.7ILr 

DDL 

ddO 

c 

Capr  is  i«e  uursiot  rauIos  of  the  annular  exiraciion  beam 

GUL 

221 

: 

EXPAND  EG.  .TRUE.  MtANS  (Ht  9E  AH  IS  GOING  FROM  CIRCULAR  TO 

GOL 

222 

c 

ANNULAR  JN  CRUSS-SfcCIlUN 

GOL 

223 

> 

ROC  *  RADIUS  OF  CURV  A I  ORE  OF  THE  F  IElU  IN  PHYSICAL  SPACE 

GDL 

224 

(• 

M 

OISP  *  uISPLACEMENl  OF  mAICON  FROM  CENTER  AC  UNO  A-AAIS 

GDL 

2dS 

« 

: 

TILT  a  ANGLE  MAUI  ANSI  OF  A A  ICON  Her  FROM  DIRECTION  OF  PROP. 

V>UL 

WL 

226 

227 

: 

NAMELIST/  RRROP  /  OELXR .0EL2 [ H .* INUUX  »  a INUOK 

GOL 

GDL 

226 

229 

: 

0EL2H  IS  PROPAGATION  DISTANCE  FOP  THE  MAUlAL  COORDINATE 

GDL 

230 

* 

OELZTH  IS  PWOPAGA  f ION  DISTANCE  FOP  1 nC  ANOuLAP  COORDINATE 

GOL 

231 

•**  UELZk  .N£.  DEL 2  TH  means  too  APE  MAKING  AN  eouivalent  ••• 

GOL 

232 

c 

•••  COLLIMATED  BEAM  PPUPAGaTIOn  STEP  IN  P-ThETa  COOPUiNAlES  ** 

GOL 

233 

■ 

PlNOOA  IS  A-SPACE  OATA  PlNuUP  fop  ff  r 

GDL 

23* 

: 

Pi NOOK  IS  K-SPACE  OATA  PlNOO*  FOP  FF T 

GOL 

GDL 

235 

236 

c 

NAMELIST/  center  /  OSM » PEMO V E • PH 1 APB 

GOL 

GDL 

237 

2JB 

z 

OSM  IS  THE  DIAMETER  TO  UE  REMOVED  AND  LA  TEH  ADDED  TO  THE  MAlNUEAM 

GDL 

239 

c 

REMOVE  FLAGS  THE  ACTION  - 

GUL 

2*0 

c 

•  TRUE.  IF  the  CENTER  PORTION  OF’  1  HE  dEAM  IS  TO  9E  REMOVED 

GDL 

2*1 

c 

.FALSE.  IF  The  REMOVED  POP  I  ION  IS  TO  dE  AOOEO  dACK  TO  THE  dEAM 

GOL 

2*2 

c 

phiapu  is  an  arbitrary  phase  Change  aooeu  to  the  CEnImal  portion 

GUL 

2*3 

GUL 

2** 

• 

M 

GOL 

2*5 

IF  (IFLAG.NE.OI  GO  TO  */S2 

GUL 

2*6 

CALL  CPUT1MHSTPT) 

GOL 

2*7 

IGNAL«l 

GDL 

24b 

RAPTRaO.O 

GOL 

2*9 

SPPRal.E/O 

GDL 

250 

CPCNT *0.0 

GDL 

251 

MSTEPaO 

GUL 

252 

PHY  a  .TRUE. 

GDL 

253 

KAUTO  a  0 

GUL 

25* 

NIT  a  NITfcP 

GOL 

255 

icntl»o 

GOL 

256 

ANGXaO. 

GDL 

257 

ANGYaO. 

Gol 

256 

c 

CALL  2ERUUCAV.NCT) 

GOL 

259 

DO  1/3  I 2ERO« 1*16 

GDL 

260 

1/3 

ICAV2U2tRO)aO 

GDL 

261 

c 

CALL  2ERU(GNOT  ( 1,  U  .GnOT  Otj.20)  > 

GUL 

262 

00  l/«  UEHOal.dU 

GOL 

263 

00  174  OXEROa i .SO 

GDL 

26* 

1/4 

GNO7<J2£HD,i2EM0>  a  i>. 

GDL 

265 

00  3  16*1.10 

GDL 

266 

3 

SAVE  < 16) »1 . 

GUL 

267 

NOb  «  NPIS»NPY 

GUL 

26G 

:  *< 

GUL 

269 

C 

BEGIN  direction  of  optical  CALCULATIONS 

GDL 

270 

CIOOO 

CALL  2ER0(0N0TE(U  .GNOTEtdU)  ) 

GUL 

271 

looo 

OO  1/6  UEPOai.lU 

GDL 

2/2 

i/6 

GNU  T E 1 1 2t.R0 )  «0  * 

2/3 

PfcAOt IN.CONTHL) 

**uc 

2/* 

1GATE  ■  U 

GUL 

2  75 

READ  t IN. 124 J)  bNOIE 

GDL 

27/ 

12*3 

FOPHAI  I20A*) 

bUl 

2/8 

ICnTL«ICnTL«1 

GDL 

2/9 

IPL TS  <  IC'VTL)  «  IPLOTS 

S0U/7CY1 

166 

OO  BU2  1*1. dO 

GUL 

2G0 

GNU  7 ( ICNIL. 1) aGNOTE ( 1 ) 

(jOL 

201 

8ud 

CONTINUE 

GDL 

282 

pRITE  16.401)  IGNOruCNTL.l)  .  I«l.dO) 

bUL 

283 

oui 

FORMA)  1 // 1 A . JO  1 JH*.4| /SX.2UA*/1X.JUI Jrt*4* ) ) 

GUL 

28* 

C 

CALL  CPOUMUNCPI 

GUL 

285 

c 

/1ME«( ISTPT-iNCP)/100. 

GDL 

286 

c 

ISTRTal  .CP 

GUL 

28/ 

c 

IF (NITER. £0.0.0) PPI TE(6.10vdl 1 1Mb 

litfU 

288 

C1U02 

FORMAT (//20X.2/MCPO  TIME  SiNLE  LAS!  CONTrL*. FB.d//) 

GDL 

289 

IlM  a  ITM«l 

GDL 

290 

1N1T  a  .TRUE. 

GUL 

291 

IGOLUTMI  a  1FL0P 

GUL 

292 

131 


c 

IFLQa  a  /l/  2 /  3/  */  3/  6/  7/  d/  4/  10/  U/  12/  13/ 

1*/ 

13/ 

oUu 

293 

00  TO  ( 10.20*30. *0.50. 60. 70.80.909.  1 00 • 3*0 .350 • 360«*20 • 130 

OOU 

29* 

c 

/ 16  / 1  7  /  la/  19/  20/  21/ 

GOU 

295 

X. 160>1 70 • 120*190 <200 *210 *3631 . IFCOa 

SOU77CY1 

167 

c 

ENTRY  AUTO(AdC.IB) 

OOU 

297 

OOU 

298 

RE* I no  la 

OOU 

299 

KAO TO  *  1 

OUU 

300 

nIT  a  0 

oOU 

301 

DM*  a  ABC  11. 2.1) 

OOU 

302 

OMY  a  AdC 12.2.1) 

oOU 

303 

nITEM  a  0 

OOU 

30* 

aHV  a  . TRUE • 

ML 

30S 

c 

♦  ♦♦♦< 

OOU 

306 

c 

RESTART  R01NT  POM  SECOND  AnO  SUBStUUENT  ITERATIONS 

OF  A 

RESONATOR 

OUU 

307 

99  NCT  ■  0 

oou 

308 

1CNTL«0 

OOU 

309 

INlTa. PAUSE. 

oou 

310 

ANO*aO. 

oou 

311 

ANGY*0. 

oou 

312 

c 

CAUL  ZERO ( ICAV  » IDK  > 

oou 

313 

00  ITT  I2ER0*t,13 

oou 

31* 

1T7  ICAVZ l IZEHU)  a  o 

oou 

315 

I*HA  a  0 

oou 

316 

98  Ian  A  a  I  art  A  »  1 

oou 

317 

ICNTl»ICNTU*1 

oou 

318 

IRLOTS  a  IHUTS(lCNTL) 

ML 

319 

IOATE  a  0 

OUU 

320 

IFUOdalGOL ( l*MA) 

oOL 

321 

aMlTE (6. ao 1 ) (GNOT ( ICNTL. 1 ) .1*1.20) 

oou 

322 

c 

IFCO*  a  /!/  2/  3/  A/  3/  6/  7/  8/  9/  10/  11/  12/  13/ 

1*/ 

13/ 

oou 

323 

<30  TO  ( 10. 20. 30. *0.50. 60. 7u.8U. 900. 100.3*0. 350. 360. *20. ISO 

oou 

32* 

c 

/ 1 6/ 17/  18/  14/  20/  21/ 

OUU 

325 

x.loO.laO .180.190. 200.210. Jo5l . IFLO* 

30U7TCY1 

168 

STUM 

oou 

327 

c 

•  ♦♦♦< 

oou 

328 

c 

COT  OUT  HELD  CENTER  ANO  5«VE  OH  AOO  TO  CURRENT  FIEUO 

oou 

329 

210  ICUT  a  ICUT  • i 

oou 

330 

IF (.NOT.  IN1T)  00  TO  212 

OUL 

331 

REAO ( IN. CENTER) 

OUU 

332 

03RRI1COU  a  OSH/2. 

<jUL 

333 

RMV  < ICU  T )  *  REHOVt 

ML 

33* 

Prt l A ( ICO  I )  *  i AHb 

OOU 

335 

212  IF  1 .NOT .RHV ( ICUT) I  00  TO  210 

oou 

336 

aHITE  (0*21*)  USMMUCUTI 

oou  ■ 

33  7 

21*  FORMAT (/29H  THE  BEAM  CENIER  (  RADIOS  *  .F6.3.20H  ) 

HAS 

dfctn  H£M0V 

oOU 

338 

*E0  //) 

oou 

339 

00  TO  214 

OOL 

3*0 

216  aMlTt  (6.217)  OSMM ( ICU T ) .MM1 A ( ICUT ) 

oou 

3*1 

217  FOhHAT (/29H  T HE  BEAM  CENTER  »  RADIUS  *  .F6.J.38H  ) 

HAS 

dEEN  AOUEO 

oou 

3*2 

X  (JACK  TO  The  dEAM  alTH  A  RHASt  CHANGE  OF  .F7.*/) 

oou 

3*3 

219  CAUL  FIEUOS (USMM < ICU T ) .RMV (ICUT) «RHl  A  < I CO 7 ) ) 

oou 

3** 

IOATE  a  1 

oou 

3*5 

00  TO  3623 

oou 

3*6 

c 

♦  ♦  •  •' 

oou 

3*7 

c 

PROPAGATE  onrolleu  ANNULUS 

oou 

3*8 

200  IRSTR  a  1RSTR*1 

SOU 

3*9 

NPyR l*NPY ♦ 1 

OOL 

350 

IF (.NOT.  INIT)  00  TO  232 

oou 

351 

»EAO< IN.RPHOR) 

OOU 

352 

AdC < l . IRSTP.d)  a  UELZH 

oou 

353 

AdC 12. IRSTP.d)  a  OELZTH 

oou 

35* 

IF(AdCI2*  IRSTR.  87  .EG. 0.0)  AdC  (2.  IkS  TR.a)  a  DELZR 

oou 

355 

AdC (3. IRSTH.a)  a  alNUO* 

oou 

356 

AdC (*. IRSTP.d)  a  alNOOK 

oou 

357 

232  *R  I  TE  (6.23*)  ( AdC ( 1ST . IRS TR.a) . IS  1 ■ 1 .* ) . ANGX. ANOY 

oou 

358 

23*  FORMAT (///S9M  UELZH  OELZIH  alNUOX  alNUOH 

AN<*A 

oou 

359 

X  ANOY.  /  6F10.*//) 

oou 

360 

CAUL  RSTEPUdCI  1.1RSTR.8I . AdC (2 . IRSTR .8 ) .AdC (3. 1RSTR.8) 

•  AdC  (*. 

GOU 

361 

1  IRSTR. 8) .AnGx.ANOY.Y) 

oou 

362 

CAUL  ROdR(CU.X.NRrS.NRYRl) 

oou 

363 

IOATE  a  1 

oou 

36* 

00  TO  3623 

oou 

365 

132 


non  on 


APPLY  AX  ICON 

WO  IAxalxA.l 

IF(.NOT.iNtr)  SO  TO  191 
PEAOdN.AXICUN) 

CPH<IAA)aCAPP 
XPnO(IAX)  aeXHANU 
PCuPVEdAAl  a*OC 
TLT  ( IAX)  a  Tli,r 

list'd AX)  a  01  S'' 

191  CALL  AX ICN  <  CPP (IAX) .XPNO I IAX) .PCUPVE ( 1  AX J .0SP< IAX) • TLT (IAX) »YI 
GO  TO  999 


APPLY  SPIOEP  OaSCUMATlON  (mANSMISSIUN  FUNCTION  TO  THt  COMPLEX 
FIELD 

wa  mcaoun.spium» 

XPITE  (6.161)  BlUTN.r.SPO»ASPC.TSPC.UlH,  I  tHET  A  USPO)  •  ISPOal  .NSPO) 

181  FOMMAT(2AMO  SPIUEP  MOUEL  APPLlEUI ./ . ISM  STPUT  alOTH  B.G12.J.1SN 
1N0.  OF  SI9Ur&a,l3* WH  X-Y  ctN ( EPA.G12 . A , IH, ,G12.*, 

215m  MOB  UlAMtr&tf  a«Gl2.*/9H  IHETAS  a. 6012. a) 

NSPO  a  H1NO(NSPO»6> 

162  CALL  SPtUEP (PlOTM, Th£TA. NSPO. XSPC.YSPC.OIh) 

I ON XL • A 
00  TO  999 


C  aXITE  COMPLEX  FIELO  ON  PUNCH  CAPOS 

160  aM I TE (6. 163) 

163  FOMHA T  <  36My  CU  HAS  BEEN  aPl  T  TEN  ON  PUNCH  CAPOS) 
aPl  TE  <  A.  16A I  (OnOTUCNTL.I)  «1»1.20) 

16a  FOPMAT (20A4I 

00  161  jal.NPY 
00  161  1*1. NP  T  S . 2 
IPEF  atj-l>»NPTS 
OUMlaxEAUCUl  IPtF«Il  ) 

OUHE 1  aA  I H  AG  ( CU  ( 1 PEF  •  I ) ) 

UUM2*PEAL <  CU  U  PfcF  *1*1)) 

0UME2* A IMA6 < CU (I PEF • 1  a  1 )) 

161  mP1TE(4.162> x(I> .XIUI . OUH 1 . OUM£ 1 . X ( 1  *  1 ) , X ( J ) .0UM2.DUNE2 

162  FUHMAT ( 2F B. 2. 2E 12. a. 2F 6. 2.2E12. A) 

IOATE  a  1 

GO  TO  3623 


C  APPLY  S1NUS010AL  PHASE  VAMlATlUN  TO  COMPLEX  FIELO 

a20  if  (.Nor.iNin  oo  10  A21 
»EaO  dN.SINOENI 
*21  aPITE  (6.A22)  N6EAM.AML 

A22  FOMMaT  1/A6H  SINUSOIDAL  UtNSITY  FIELO  APPLIED  TO  THE  BtAM  /2BM 
X  a  OF  CYCLES  PEP  XCALC  .IS.26H  ArtP/ML  OF  VAPIATIUNS  ».F7,3  ) 
AS  a  2. *3. 1 A 1592  •  AML 

A6  a  2.  •  3.1a1S9p  •  nHEAM  / (NP TS* (X(2) "*(!)>> 

00  A23  lal.NPTS 

cfaCTTm  cexp icmplx ( o . *  as  •  sin  u6*xunn 
00  A23  Jal.NPY 
IJ  a  I  *  tJ-naNPTS 
A23  CUtlJ)  a  CU i I J) *CFaCTT 
GO  TO  999 


C  APPLY  GOL  CAVITY  TO  COMPLEX  FIELO 

1U  ICAV« ICAV * l 

IF (.not.  lNin  00  TO  11 
PEaO (IN.CAVTY1) 

IDlPd.ICAV)  a  NCAVNO 
I01P12.1CAVI  a  1LP 
I0l«<3. ICAV)  a  nSTE 
IOIP(A.ICAv)  a  NPLT 
2LldCAV)a2PPOPl 
ZLUdCAV)  a^PHOPO 
11  NEaCAV  a  0 

NCS  a  MAXOdUIRd.lCAV)  .NCT) 

IF (NCS.GT .NCT)  NEMCAVal 
NCT  »  NCS 

MPITE  (6.121  I01P(1. ICAV) .iUlP<2.ICAVI .I01N(3. ICAV) 


GOL 

36* 

GOL 

367 

GOL 

36* 

GOL 

369 

GOL 

3/0 

GOL 

3/1 

GOL 

3/2 

GOL 

3/3 

GOL 

J/A 

GOL 

3/S 

GOL 

3/6 

GOL 

3/7 

GOL 

3  78 

GOL 

379 

GOL 

3*0 

GOL 

3*1 

GOL 

3*2 

GOL 

3*3 

GOL 

364 

GOL 

36S 

GOL 

366 

GOL 

36  7 

GOL 

366 

GUL 

369 

GUL 

390 

GUL 

391 

GOL 

392 

GOL 

393 

GOL 

J9A 

gOL 

39S 

GOL 

396 

GOL 

J9  7 

GOL 

396 

GOL 

399 

GOL 

•  00 

GUL 

AG  1 

GOL 

A02 

GOL 

403 

GUL 

404 

GOL 

405 

GOL 

406 

GOL 

40  7 

gOL 

408 

GOL 

409 

GOL 

410 

GOL 

All 

GOL 

412 

GOL 

413 

GOL 

414 

GOL 

41S 

gOL 

416 

GOL 

417 

GOL 

Aid 

GOL 

419 

GOL 

420 

GOL 

421 

GOL 

422 

GOL 

423 

GOL 

424 

GOL 

A2S 

GOL 

•26 

GOL 

427 

GOL 

•28 

GOL 

429 

GUL 

430 

GOL 

431 

GOL 

•32 

GOL 

•33 

GOL 

434 

GOL 

•  JS 

GOL 

•  36 

GOL 

•37 

133 


n  a 


i. 


12  FORMAT  (///16H  CAVITY  NUMBER. 13. 17M  UlRECTIUN 

.12  «29h 

GOL 

*J« 

X  PROPAGATING  PARAMETER  .12  /) 

GOL 

*39 

SMI  TE  (6«  IS)  2LKICAV).  2LO <  ICAV ) 

GOL 

**0 

lb  FORMAT (*6H0A0Ul r 10NAL  PROPAGATION  DISTANCES  AT  CAVITY 

ENOS/ 

GOL 

**1 

X  U,*H2Lla.O12.5.OA.*M2L0a»G12.5) 

GOL 

**2 

CALL  CAVITYUOIHU.ICAV)  .  lUlN  (2.  ICAV)  .NEsCAV  •  INI  T  .  I01H  <  3.  ICAV »  .  IN. 

Sol 

**3 

X  mESTRT ♦  lUlHU.lLAV) .ZL1 ( ICAV) ,2LU( ICAVI ) 

GOL 

444 

IF ( IUIR  1  3.  ICAV) .Lfc.J)  INC*! 

GOL 

**S 

00  TO  999 

GOL 

446 

GOL 

**7 

RE AO  ANO/OM  sHITE  COMPLEX  F 1ELO  ON  OIMECI  ACCESS  FILE 

GOL 

**B 

100  NOS  *  NOS  ♦  1 

GOL 

44V 

IF  (.NOr.INIT)  00  TO  101 

gOL 

450 

HEAO  UN, 0  ISM  T> 

GOL 

*51 

lOSXU.NOS)  *  IHEAO 

GOL 

*52 

IOSK12.NOS)  a  IsRlTE 

GOL 

*53 

IOSKU.NuS)  a  10M0 

GOL 

454 

TUSK <♦. NOS)  a  UOO 

GOL 

*55 

oo  to  ior 

GOL 

♦56 

101  IMEAO  a  lOSKtl.NOS) 

GOL 

*57 

IUSM2.NJS)  a  IOSK (2 (NOSI  •  IUSM*.NOS> 

GOL 

*56 

ImmITE  a  10SM2.NOS) 

GOL 

*59 

IORO  a  IOSK(J.NOS) 

GOL 

460 

107  IF  (IHEAO. EU.Q.OM.lOHU.EU.-l)  00  TO  102 

GOL 

*61 

HEAO  (IHEAO)  (CO (12) *12* 1 .NOB) * A.OHA.OHY .NITER 

GOL 

*62 

*H l TE (6. 1 05) IHEAO 

GOL 

*63 

105  FORMAT (//10A.26MCU  MAS  SEEN  HEAO  FROM  UNIT. ID//) 

GOL 

*6* 

HE  *1  NO  IHEAO 

GOL 

*65 

102  IF  (IaRlIE.EU.O)  00  TO  lt>3 

GOL 

466 

SMITE  (ImHITE)  (CU(IZ) .IZ»l.N08) .X .OHX.OHY .NI TEH. SAVE 

GOL 

*67 

aH 1 TE (6. 1  OS)  IHH1TE 

GOL 

♦66 

106  FORMAT (//10X.27MCU  MAS  BEEN  SMITTEN  ON  UNIT, 13//) 

GOL 

*69 

HtslNO  ISHITE 

GOL 

*70 

103  IF  (IHEAO. EU.O. OH.IOHU.CO.il  oO  TO  999 

GOL 

*71 

HEaO  (IHEAO)  (LU(UI  .U«l.NOS)  .X.OHX.OHY. NITER 

GOL 

*72 

SHI TE (6.105) IHEAO 

GOL 

♦  73 

REslNO  IHEAO 

GOL 

•  7* 

00  TO  999 

GOL 

*75 

GOL 

*76 

APPLY  AEH00YNAM1C  VINOUS  TO  COMPLEX  F IELU 

GOL 

*77 

3*0  SHITE  (6.3*1) 

GOL 

*76 

3*1  FORMAT  (//7*m  AERO  VINOUS  MUOEL  MAS  SEEN  APPLIEO. . .RMS  PHASE  DIST 

GOL 

*79 

XOHTION  IS  THE  MOUEL  /) 

gOL 

*60 

CALL  AEHOS(CU.NPTS.NPY) 

GOL 

*ai 

GO  TO  999 

GOL 

♦62 

GOL 

*63 

apply  fielo  scaling  factoh 

GOL 

*6* 

3S0  ML  T  *ML  T  •  l 

GOL 

♦65 

IF  (.NOT.  INIT )  GO  TO  3SI 

GOL 

♦86 

mEaO  ( In. molt ) 

GOL 

*87 

ABC ( I .ML  T .9) aTRANS 

GOL 

*68 

ABC (2. MLf .9>*XMAB 

GOL 

*89 

3S1  SHITE  (6.362)  A6CU.HLT.9)  .  ABC  (2  .MLT  .  9) 

GOL 

*90 

STHANS  a  S0HT(AbC(1.MLT.9) ) /ABC (2. MLT . 9) 

GOL 

691 

3S2  FORMAT  (/*3H  the  FIELO  MAS  BEEN  SCALEO  BY  THE  FACTORS 

.2FS.3/) 

GOL 

A92 

00  3S3  I«l.NOB 

GOL 

*93 

3S3  CU<I)  a  CUU)*STRANS 

GOL 

*9* 

00  357  I  «  l.NPTS 

GOL 

*95 

357  X(I)  a  HI)  •  ABC  (2. ML  T  .9) 

GOL 

*96 

RM1RH  a  ABCtl.MLT.9) 

GOL 

*97 

IGNAL  *  5 

GOL 

*98 

GO  TO  999 

GOL 

*99 

GOL 

500 

MAKE  PRINTER  plots  OF  COMPLEX  FItLU 

GOL 

501 

(JO  IPTTalHTT.l 

GOL 

502 

IF  (.NOT. INI Tl  GO  TO  82 

GOL 

503 

HEAO(IN.PLOT) 

GOL 

50* 

HEAO  15.12*3)  TITLE 

GOL 

505 

OO  S3  NO* 1.20 

GOL 

BV6 

S3  APL T ( IP  1 I .MO) *T 1 TLC (NU) 

gOL 

50  7 

82  SHITE  (6.0*1  (APLT1IPTT.NUI ,Ny«l,20) 

GOL 

508 

W 


*4 

format  hhi.30a.2oa*  //i 

GOL 

S09 

IF (HAOPL 1 .EO.O.U)  C ACL  IPLUl  Hill) 

GUL 

SIO 

IF  (HAOPL T.NE. 0.0)  CALL  IPCUt  Hllll) 

GUL 

su 

IF  i.Nor.iNinoo  ru  os 

GOL 

S12 

SO  TO  1000 

GOL 

S13 

•  ■ 

GOL 

SI* 

FLIP  The  COMPLEX  FIELD  ABUU  T  l ME  Y-AXIS 

GOL 

SIS 

3ft  0 

NP  *  NPT5  /  C 

GOL 

Sift 

■HITE  18.301) 

GOL 

SI  7 

3ft  1 

FOhMAT (/OEM  The  F  ItLO  MAO  JUS)  SEEM  FLIPPEO  ABOUT  f MC  Y-AXIS  1/) 

GOL 

SIB 

00  3ft2  J*1.NPY 

GOL 

S19 

00  3ft2  l»l.NP 

GOL 

S20 

12  *  1  •  (0-1 )  •  NPTS 

GOL 

S21 

IJ  >  1  *  1  ♦  NPTS  •  0 

GOL 

S  22 

CUO  *  CU  (1C) 

GUL 

S23 

CO ( 12)  ■  CU ( 13) 

GOL 

S2* 

3ft2 

CU ( 13)  a  CUO 

GOL 

525 

SO  TO  999 

GOL 

52fc 

SOU77CY 1 

169 

3ft5 

IF (NPT.Nt.NPTS)  00  TO  099 

SOU  7  7CY  l 

170 

NPaNPTS/2 

SOU77CT1 

171 

■MITE (ft. 36ft) 

SOU77CYI 

172 

3ftft 

FORMAT (/46m  The  F1EL0  MAS  BEE*  FLIPPED  ABOUT  THE  X-AXIS/) 

SOU77CY 1 

173 

00  3ft?  1*1 .NPTS 

SOU77CY1 

17* 

00  3ft?  J*1.NP 

SOU77CYI 

175 

12*1  * ( j-1 ) »npTS 

SOU77CY1 

17ft 

13*1 «M08- J*NP ( S 

SOU77CY 1 

177 

CUO*CU(IC) 

SOU7  7CY1 

178 

CU ( 12) *CU (131 

S0077CY1 

179 

3ft? 

CU( IJIaCUO 

SOU77CYI 

180 

GO  TO  990 

SOU77CY1 

181 

♦ 

GOL 

S27 

APPLY  MIHHOH  THANSMIS5I0N  FUNCTION  10  THE  complex  FIELD 

GOL 

S28 

20 

IMIR  ■  IM1H*1 

GOL 

S29 

1F(.N0T.  1NIT)  GO  TO  21 

GOL 

530 

HEaOHN.mimOH) 

GOL 

531 

ABC (1.IM1H. 2)*  ANGXA 

GOL 

S32 

ABCI2. IMIH.2)*  ANGYY 

GUL 

533 

ABC (3. IMIH.2) a  HAOC 

GOL 

53* 

ABC (a. IM1H.2) ■  OlAUUI/2. 

GOL 

535 

ABC(S.IM1H.2>*  OlAlM/2. 

GOL 

53ft 

ABC (ft. IMIH.2) a  XMPOb 

GOL 

537 

ABC( ?.IMlP,2)a  YMPOS 

GOL 

538 

ABC (B. IM1P.2) »  MM1H 

GOL 

539 

ABC(9.1M1M.2)»  DELTA 

GOL 

S*0 

ABC ( 10. IM(HtC) a  D15IF 

GOL 

5*1 

ABCdl.IMlH.2la  HANULS 

GOL 

5*2 

ABC ( IS. (MlH.A) auOUTY/2. 

SUAPH 

27 

ABC (ll.IM(H.A)aOlNY  /2. 

SUAPH 

28 

ABC(12.1M(H.2la  PHlAb) 

Cl  U  AS  TG 

b 

Cl 

CALL  MIHHOH (ABC ( 1  * lMlH.2) . »BC ( 2 . 1m IM ,2 ) . ABC ( 3. IMIM.2 ) . ABC  I*. IMIH.2 

GOL 

5*3 

1) .ABC (S.1MIH.2) .ABC (ft. 1MIH.C) . ABC < 7 • IMlM .2 ) . ABC (B. IM1H.2) . 

GOL 

5** 

2  ABC (9. 1M1H.C) .ABC ilU.lMlM.C). ABC (H.IMIM.2) • ABC ( 10. IM 1H.A) . 

SUAPH 

29 

3  ABC  HI  .  IM1H.A)  .ABC  (  12.IMIA.C)  ) 

C1UASTG 

7 

HAPTMaABC (*. 1M1M.2) 

GOL 

5*6 

•MITE (ft. 23)  (ABCIIMM. IMIM.2) . 1MM*1.3> . ( ABC ( I MM. 1M1H.C). IMMaft , l 1 ) 

SUAPH 

31 

Cj 

FOMMAT(///BM  ANGXA  *.G12.*.BM  ANGYY  a.012. A. 1 ?M  MAOlUS  OF  CUMV  a.G 

<#UL 

5*8 

*12.*/  »3M 

SUAPH 

32 

x  position  of  mimhoh  s.h.i.  opiical  axis  ■  (.Fft.j.iM..Fft.j.iM>  / 

GOL 

550 

X22n  MIHHOH  HEFLECUYirY  a.FS.O.bX/ 

GOL 

551 

*37m  MIHHOH  SPMEH1CAL  OISIOmHON  FAClOH  a.E12.*/ 

GOL 

552 

* 3 7m  mihmoh  flux  oep.  uisrowTioN  faciuh  *.ei2.*/. 

GOL 

553 

*3  7m  OUrSlOE  HAOIUS  OF  ANMULAM  beam  s.E12.*/> 

GOL 

55* 

IF  (ABCHO.  1MIH.2)  ,GT. -10.)  GU  TO  B31ft 

E01PMM 

1 

•MITE (ft. 39 13) 

EOIPMM 

2 

3913 

FOHMAflSftH  EUI  LOSS  ACCOUNT EO  FOM  In  ASSOCUTEO  MIHHOH  CALCULATION 

tO 1 PGM 

3 

XS  ) 

EOIPGH 

4 

GO  TO  3623 

E01PGH 

5 

831ft 

CONTINUE 

EOlPftH 

ft 

IGNAL«2 

GOL 

555 

IF ( ABC  I*. IMIH.2) .LE.U.O.ANU.AbC (S. IM1H.2) .EG. 0.0)  1GNAL«S 

GOL 

55ft 

HMIHHaABC (B. IMIH.2) 

GOL 

557 

GO  TO  999 

GOL 

558 

135 


c 

♦ 

OOL 

SS9 

c 

apply  transmission  function  of  a  uuIescent  thermal  gradients 

OOL 

560 

c 

near  a  mirror  surface 

OOL 

561 

170 

I ThRML  ■  IIHRML  *  1 

OOL 

562 

IFI.nOT.  lNin  00  TO  1/1 

OOL 

563 

REAOdN.lMHML) 

OOL 

564 

ABC  <1.1 ThRML . 7  )  a  ALPHAM 

OOL 

565 

ABC  <2.1 THRML «  7 )  a  C0NM1H 

OOL 

566 

ABC (3.1 ThRML . 7 ) a  ALRm AO 

OOL 

567 

ABClA. 1 THNML. /> a  HHUOAS 

OOL 

560 

ABC  <3*1 THRML . 7) a  7  AU 

OOL 

569 

ABC <6.1 THMML. 7) a  TIN 

OOL 

570 

ABC  <7.1 ThRML*  7 ) »  REFM1H 

OOL 

571 

ABC <6. 1 THMML. 7) a  CONGAS 

OOL 

572 

171 

CALI.  THEMML  (ABC  (1.1  THMML  .  7  )  .ABC  <2.1  ThRML.  71  .ABC  <3.  1  THMML.  7)  .ABC  (A. 

OOL 

573 

1  I ThRML.  7)  ,  ABC  1 5.1  ThRML./)  .ABC  16. I THRML.  7 )  .ABC  17. I THRML. 7 1  • 

OOL 

57a 

2A8CIB.I  ThRML.7)  ) 

OOL 

575 

I0NAL»1 

OOL 

576 

00  TO  919 

OOL 

577 

c 

♦ 

OOL 

570 

c 

AMPLY  PROPAGATION  ALOOMITHM  (0  COMPLEX  F1EL0 

OOL 

579 

30 

ISTEP  a  ISTfcPM 

OOL 

5B0 

IFI.NOT.  INI  1 1  00  TO  32 

OOL 

5B1 

RE A0< IN. PROPOT) 

OOL 

582 

IF ( I IPS.GT • 1 ) lIFOa^ 

OOL 

5B3 

ABCI1.ISTEP.3)  a  0EL2 

OOL 

5BA 

ABC <2. ISTEP. 31  a  MUCUKV 

OOL 

5B5 

ABC <3. ISTEP. 3)  a  aiNOOX 

OOL 

5B6 

ABC (a. ISTEP. 3)  a  alNUO* 

OOL 

587 

ABC  <3. ISIEP.3)  a  UFO 

OOL 

5B0 

ABC16.ISIEP.JI  a  IlTH 

OOL 

5B9 

ABC17. ISIEP.3)  a  UPS 

OOL 

590 

32 

IFO  a  ABCI5.ISTEP.37*. 001 

OOL 

591 

ITh  a  ABC16.ISIEP. J) *.001 

OOL 

592 

IPS  a  ABC (7. ISTEP. 3) *.001 

OOL 

593 

WRITE  (6.3*)  <  ABC (IS  <  « IS  TEP. 3) .ISfal.A) .1F0.ITR. IPS. ANOA  » ANOY 

OOL 

59a 

3* 

FORMA  U///  91H  l)EL2  HAU  CURV  WlNOUX  alNOOA  IMj 

OOL 

595 

X  ITh  IPS  ANOA  ANOY  /  AF10.-..16.SA. 16. SA. 16. 

OOL 

596 

ASA.2F10.S//) 

OOL 

597 

I CORE  a  0 

OOL 

598 

IF  (IFO. LI. -S)  00  TO  31 

OOL 

599 

IF  ( ABS  <  »BC  <2. ISIEP.3) I .LI ««S7  AoC 12. ISTEP. 3) aRAUCUR 

OOL 

600 

*0* 

CALL  STEPIABCd. ISTEP.  3)  .AbC  <2.  ISIEP.3)  .  ABC13.  ISTEP 

OOL 

bOl 

1.3) .ABC (*. IS TEP. 3) . IFO. 1 IR » IPS. ANOA . «NGY . 0 • 1C0RE) 

OOL 

602 

IF  ( ICORE.cU.O)  INT  a  1 

OOL 

603 

MSTEPal 

OOL 

604 

GO  TO  999 

OOL 

605 

31 

IF  I |N T .€0.0) aR 1 IEI6.319I 

OOL 

606 

31*3 

FORM A 1 ( 56Hu  ENIERINO  CURE  BEFORE  STEP  CALLED  1  CALCULATIONS  STOPPED 

OOL 

60  7 

A) 

OOL 

608 

IF  < InT.EU.O) STOP 

OOL 

609 

c 

CALL  CORE  I  ABC  d. ISTEP. 3)  .1IH.0I 

OOL 

610 

I CORE a 1 

OOL 

611 

00  TO  A62 

OOL 

612 

c 

♦ 

OOL 

613 

c 

APPLY  APERTURE  TRANSMISSION  FUNCTION  TU  COMPLEX  FIELD 

OOL 

61a 

AO 

1AP  a  1 AP* 1 

OOL 

615 

• 

IFI.nOT.  IN IT)  00  TO  A1 

GOL 

616 

REaOIIN.APTURI 

OOL 

617 

ABC  1 1 . SAP. A) a  DOOT/2. 

GOL 

618 

ABCI2.IAP.Ala  01N/2. 

OOL 

619 

ABC (3.1 AP. A) a  APOS 

OOL 

620 

ABC (A.lAP.A)a  rPOS 

OOL 

621 

ABC  IS. 1 AP. A) aYOOT/2 » 

SOAPM 

33 

ABC (6. 1 AP. A) aYlN  /2. 

SOAPN 

3A 

•l 

IFIOOOT.LT.U.O.ANti.OIN.LT.U.U) 

OOL 

622 

1CALL  SLIyERIABCII.IAP.a)  »  ABC  12 . 1  AP.  a)  •  ABC  13.  UP,  A)  .  ABC  I  A.  SAP.  A) ) 

OOL 

623 

IF (OOUT ,0£ <0.0. ANO.U IN.Oe.0.0)  CALL  APHTM I ABC d « I AP.a) .ABC (2. IAP. A 

SOAPN 

35 

A)  .ABC  <3.  IAP.  A)  .ABC  (A.  UP,  A)  .ABC  IS.  UP.  A)  ,  ABC  (6.  IAP.  A)  I 

SOAPP 

36 

IF  (OOOT  .OT  ,  0.9,  ANO.U  IN.  OE  •  u  •  0 1  RAPTRa  ABC  d  ,  UP,  A) 

GOL 

626 

I  ORAL* A 

OOL 

630 

00  To  999 

OOL 

631 

O  JO 


£ 


OOL 

622 

APPLY  THbPNAL  dLOONlNO  TKAiNSNISSIUN  KUNCIION 

TO  conplea  field 

OOL 

633 

SO  IDR  a  IOR«l 

OOL 

636 

IF  (  .NOf.  INI  T  )  00  ro  SI 

OOL 

6JS 

HCAO(IN.dLOON) 

OOL 

636 

AdC  1  1 .  10*. 5)  ■  ALFA 

OOL 

637 

AdC(2.I0R»3)  a  bCH 

OOL 

638 

AdCO.lOR.S)  a  r 

OOL 

639 

ABCU.IJR.S)  ■  MHO 

OOL 

660 

A8C1S.IJR.5)  ■  ZLbN 

OOL 

661 

AdC(6.10R.5>  a  NSTEPS 

OOL 

662 

A8C(7.10R.5)  ■  INPT 

OOL 

663 

AdCld.lOR.S)  a  nPROP 

OOL 

666 

AdC (9. 10*.3)  ■  AA1AL 

OOL 

665 

A»C ( 10* IUR.5) •  07 

OOL 

666 

Si  NSTCPS  a  AdC16.I0R.3l *.000i 

OOL 

667 

INPT aAdC  (7. 1 UR .31*. 0001 

OOL 

66« 

I22TaaHC 18. luR.S) * .0001 

OOL 

669 

CALL  TdLOON  1  ABC  1 1 . 1  OR . S 1  . AoC  12.10R.SI.AdCU. 

IOR.S) .ABC (6. 10R.S) . 

OOL 

6S0 

AAdCIS.IOR.Sl .NS (EPS. INPT. 122 T. AdC (9. IUR.S) .ABC (10. 10R.5) 1 

OOL 

6S1 

OO  TO  009 

OOL 

6S2 

OOL 

6S3 

INTERPOLATE  FbtOdACR  F  IfeLO  mum  RESONATOR  ROUE  FOR  USC  In  NfcAf 

OOL 

636 

1 TbdATIUN 

(lUC 

635 

60  1 F  1  . NO T  .  IN  1  T  .  AnO  .  . NO  t  .  MM  f  )  00  TO  61 

OOL 

656 

If (.NO r. INI  I)  oO  TO  6/ 

OOL 

63  7 

RbAOl IN. CUTOUT) 

OOL 

658 

AdC (1.1.1)  ■  0 IdC AN 

OOL 

639 

AdC (2.1.1)  «  OVRLAP 

OOL 

660 

AdC (0.1.1)  a  OAAR 

OOL 

661 

AdC (6.1.1)  a  OY Yd 

OOL 

662 

AdCtS. 1.1)  ■  AYCOSM 

OOL 

663 

I0DLI99)  a  lABS(NAAll) 

OOL 

666 

8 7  OCIdM  a  AdC  (2.1.1)  *adC  (l.l.D/2. 

OOL 

665 

OldCAN  a  AdC (1.1.1) 

OOL 

666 

AObL  a  JC 10N/NPTS*2 • 

OOL 

667 

AR(l)  a  -QCIBN.aUEL/2. 

OOL 

668 

00  62  I8N»2.NPTS 

OOL 

669 

62  XR(ION)  a  AR 1  ION-1) »AOtL 

OOL 

670 

TAY(l)  a  A (2)  -  All) 

OOL 

671 

T AY ( 2)  a  X (2)  -  A(l> 

OOL 

672 

rXY(J)  a  NPY 

OOL 

673 

T AY  (al  a  npTS 

OOL 

676 

OO  66  NSPal.NPY 

OOL 

675 

66  TXY(6»NSP>  a  X(NSP).URY 

OOL 

676 

NPY6aNPV*6 

OOL 

677 

00  660  NsTal.NHTS 

OOL 

678 

660  TXY1NPY6  *  NST )  a  A(NST)»URA 

OOL 

679 

61  AYC  a  AdC(S.l.l) 

OOL 

680 

POaA  a  0. 

APN27 

1 

0A2a(A(2»-A(l) 1/2. 

APP27 

2 

0d2 "OC I BN 

APM27 

3 

00  621  jal.NPY 

APN27 

4 

IF  (AdStA(O) )-0A2.0T.0H2)  00  10  621 

APP27 

5 

FCYal.O 

APR27 

6 

IF  (AdS(AU))  *0A2.LT.0B2)  00  TO  627 

APP27 

7 

FCYa(|)B2“  1 ABS  ( A  ( J)  )  *0X2)  1  /OA2?2. 

APP27 

8 

627  Jl  a  (J-l)  •  NPTS 

aP«2  7 

9 

OO  620  lal.NPTS 

APP2T 

10 

IF  (ABStA(l) )-0X2.0T.Ud2>  00  IU  620 

APN27 

11 

FCAal.u 

APP27 

12 

if  (Ad$(A(in  .oa2.lT.ub2)  oo  ru  62a 

APP2  7 

13 

FCAa(0B2-(AdS!A(l) )-0A2) I/UA2/2. 

APP  2  7 

16 

62B  1A  a  Jl  *  { 

APR27 

IS 

POaA  a  POdA  *  CO  11  A)  •  CUNJO (Cu( IA) )  •  FCA  • 

FCY 

APR27 

16 

620  CONTINUE 

APR27 

17 

621  CONTINUE 

APR2T 

18 

POaA  a  PuaA  •  (A (2) -A ( 1 > ) »*2  /  1000. 

APR27 

19 

NAAAa  9 

OOL 

681 

12*0 

OOL 

682 

IF  (NPTS.Nb.NPY)  U«1 

OOL 

683 

137 


powa  *  a. 

APH20 

12 

00  03  NY*1«NPY 

60L 

00* 

YInP  a  AIXtNY)  *  ABC (*, 1 » 1 I 

(ML 

605 

00  03  NX«1  »NPTS 

(ML 

oao 

MAAAarUAAM 

(ML 

OB  7 

XlNR  a  Alt  (MX)  «  ABCU'l'U 

(ML 

OBB 

CALL  INrtHPlTXY.AlNH.YlNP.LU.Z.CFFLlNAAA)  >12) 

APH26 

13 

63 

PU»H  a  HOwB  •  CFFL(HAAA)*CuNUG(CFFL<NAAA) I 

APH20 

1* 

PUwrt  a  PUw»  •  (AIM2)-AK(1)  >**2  /  loOU. 

AHH20 

19 

FAFLT  a  90HT  (PUwA/ROWB) 

APR  20 

10 

00  023  IX  a  1 t NOB 

APH20 

17 

623 

CFFLtlX)  *  CFFL(IX)*FXFLI 

APH20 

IB 

.Mire  (6.62*1  P()WB,P0WA 

APH20 

19 

OF* 

FUHNAl  ( / 1  OX ,2BnF IELU  AUJUOTtU  Fhum  kowE*  OF  .F S,2.*H  TO  »F8.2/> 

APH20 

20 

IF  (CUSHF .Nt.O.)  00  TO  992* 

CTCLE9 

0 

UaO 

CYCLES 

7 

00  90*3  Ixal.NPTS 

CYCLES 

B 

A(lXI  a  AMU) 

CYCLES 

9 

OO  50*3  1XY«1«nPY 

CYCLES 

10 

U  a  12  *  1 

CYCLES 

11 

9o*3 

CU(  12)  >  CFFLU2) 

CYCLES 

12 

60  TO  999 

CYCLES 

13 

592* 

CONTINUE 

C7CLE9 

1* 

IF  (ICAV.IiT.O)  60  TO  091 

(ML 

090 

FMAXao. 

60L 

091 

UO  092  IMaltNOB 

60L 

092 

FNAGaCABStCFFLUN) ) 

60  L 

093 

IF (Fna6.LT.FnAX)  60  TO  092 

60L 

09* 

FHAXaFNAG 

60L 

095 

INUXalM 

60L 

090 

642 

CONTINUE 

60L 

097 

00  093  I Hal, NOB 

OUL 

690 

093 

CFFL ( INI *CFFl 1  INI /FNAX 

60L 

699 

WHl T£ (6,66*1 >  FNAX 

60L 

700 

00*1 

FONNAT t//*7H  CUTOUT  FIELO  Anne! TUOES  NAVE  BEEN  OIVIUEO  BY  , 

OUL 

701 

X  F8.*,//> 

60L 

702 

091 

CONTINUE 

(ML 

703 

WHITE  <71  (CU112I  «U«l«NOB> 

6UL 

70* 

WE W I NO  7 

(ML 

705 

IFI.NOT.HESTHT.ANO.INITIOO  TO  030 

(ML 

700 

MEAO  (B)  (CF1L2U2) ,12*1, NUB) ,XOUN,OUOMZ,OUUN3.NOUUN»bAVt 

60L 

70  7 

HEwINO  d 

(ML 

TOO 

630 

SUMENHaO.O 

(ML 

709 

ICNTao 

(ML 

710 

NWTAaNPTS/ 10 

(ML 

711 

NWTB*NPT9/* 

(ML 

712 

nwTC*nPTS-NwTB 

(ML 

713 

NwT0*NPTS/2 

(ML 

71* 

WHITE  10,093) 

(ML 

715 

003 

FOHNAf (**«OCUTOUT  FIELO  COnhahISON  To  OEIEHNINE  AY6A1N/I 

(ML 

710 

WH1TEI0, <11 

60L 

717 

n 

FOHNAtllOHO  POINT  ,0X,12H  CURHENT  ,*X, 12N  PHEVlOUb  ,*X,12H 

(ML 

718 

i 

1  PERCENT  /ION  TESTtU  ,oA» 12H  VALUE  ,*X.12N  VALUE  t 

(ML 

719 

X*X,9H  CHANGE//) 

(ML 

720 

ICE*S»0 

(ML 

721 

00  09  1 ABC*NW  TB,NW  TC,NW T  A 

(ML 

722 

ICNTa ICNT  * l 

(ML 

723 

EKHSmwO ♦ 

(ML 

72* 

OUNaC AB9 1 CF  FL 1 1 ABC ♦ t  N w  T  0- 1 ) *NP  T  S 1  1 

(ML 

725 

DUNEaCAOb  <CF IL2  < 1 AbC • t  NW  T 0- 1 1 *NP  TS 1 1 

(ML 

720 

IF(.(VUr.HCSTHr.ANO.INIT)yUNtai.l) 

60L 

727 

IF  <  OUN£  ,N£  •  U  ,  )  tHHbrta  ( IMJM-uUHt )  /OUMt 

60L 

7  28 

IF  tABSttHHSNI ,6T,U, 10) ICEAS*! 

(ML 

729 

bUNEHHaEHHSN»*2»SUNtHH 

(ML 

730 

WH I TE ( 0 , 090 ) l AoC , NW  T  0 , OOH , UUNt , EHMSN 

60L 

731 

O90 

FOHNAT (ON  CUSM( ,13, IN, ,12, IN) ,*X ,6 12. 9,* A ,612,9, 7X.2PF6.2) 

60L 

732 

09 

CON  7  liVUC 

60L 

733 

IF  ( ABC (9,1,1) »E0«  0.  .OH. <N1 1  EH.EU.O  .  ANO.KAUTO.E'J.O  I 1  60  TO  09 

60L 

73* 

IF (ABC (5, 1,1) .6E.0.)  60  TO  OB 

60L 

735 

EHHSS*50H T  <  90NEHH/ ICNT) 

(ML 

730 

AVC  a  .9  -  EHH99 

9007 7CY1 

182 

IF  (EHH9S.6I  ,0.0)  AyC«t),2 

60L 

73B 

IF  (ERRS9.LT.. 11  AvC  «  .7 

SU077CY1 

183 

r.  o 


0*1 rt (6.610) ERRSS.AVC 

GOL 

/AO 

610 

FORMAT 1//1 7X.29MF IEL0  AVtNAGlNG  MAS  BtfcN  USEU/10A 

tlOMNMS  tHRONa. 

GUL 

7A1 

1  Fa.*.5A.l*HAVCuSM  USEUa.Fa.*//) 

GUL 

7*2 

66 

CUNT INUE 

GOL 

7*3 

00  75  MA*l.N08 

GUL 

7A* 

A AN  a  CABSICFFL(MA) 1 

S0077CTI 

IB* 

AAOLU  «  CABS (CF (L2 (MX)  ) 

SOU77CT1 

IBS 

75 

CF'F'L<MX»  »  CFFL(MX1  •  ( AVC*AAULU« ( 1 .«AvC) *AAN»  / 

A  AN 

SOU  7  7  C  T 1 

1S6 

b9 

MY  »  NITER* 1 

GOL 

7*6 

REAL)  1 7)  (Cu  (  U)  •  U«l  .NOB) 

GOL 

7*7 

NEalNO  7 

GOL 

TAB 

■HITE (6*6631 

GOL 

7*6 

663 

FORMA r ( 1*A«33hC0NV£NG£NGE  lESf  FIELU  COMPARISON/ ) 

GOL 

/SO 

ICEKaU 

GOL 

751 

SMERRaO.O 

GOL 

75* 

I Cm 7*0 

GOL 

753 

OMITfc (6*  71) 

GOL 

78* 

00  660  IAbC«N0TB«N0fC»N0l A 

GOL 

785 

ICNr«ICNt»l 

GOL 

786 

ERRaO. 

GOL 

757 

OUMaCAHS  ICU  t  lABCMNaTO-l)  «NP  15)  1 

GOL 

786 

OUME»SAVE (ICNT) 

GOL 

789 

SAVE < ICNT >aOUM 

GOL 

760 

IF UNOT.RESTRT.ANO.INITtOUMEal.O 

GUL 

761 

IF(DUM£.NE.O.)  tNN» (UUM-UUMt) /OUMt 

GOL 

76* 

ifiabsienni .or. o.o2t iCEKai 

GOL 

763 

SMErtMa£HR#«Z«SMt*H 

GOL 

76* 

ONI TE (6*661 ) I  ABC  *NW  1 O.OUM. uUMt ,£NH 

GOL 

765 

661 

FORMA  t  (AM  CU(.l3.1H..I*.iH).*A,G12.5.*A.Gi*.5.7X. 

2PF  6.*) 

GOL 

766 

660 

Continue 

GOL 

767 

IFUCtKS.EU.ll  ICEKal 

GOL 

768 

t NHSS«SUN T ( SMERR/ l CN ( 1 

GOL 

769 

ON  I TE (6.6621 tRRSS 

GOL 

770 

6o* 

FORMA f(/l5A.lBMNMS  tNHOH  F UN  CU  a, Fa.*/) 

GOL 

771 

oNUEtai  (CFFL(U)  .U»1.NUB)  .  AK  .  ABC  (  3.  1  .  1 1  •  ABC  ( *  « 

1.1) .MY. SAVE 

GOL 

77* 

NtolNO  B 

GOL 

7  73 

0H1TE  (6.661  ( ABC (JVCX.l.ll tUVCAal.s) 

GOL 

77* 

66 

format  (  //bin  interpolai ions  Fun  Tnt  fielu  oven  oibeam*ovrlap 

GOL 

7  75 

; 

A  HAVE  JUST  BttN  PERFORMED  /SOM  BEAM  UlA 

OVERLAP  APO 

GOL 

776 

AS  TPOS  KltLU  AVtWAGt  /  *A.bGi*.S  //  ) 

GOL 

777 

OMT  a  .FALSE. 

GOL 

778 

00  TO  999 

GUL 

779 

♦  • 

v»UL 

7B0 

INCREASE  TMt  NUMBtN  OF  GNU)  PUIN1S  FOR  CUMRLtX  FltLU 

tiUL 

7B1 

iso 

NEAOIIN.NEORIO) 

GOL 

78* 

nPISS  «  NPTS 

GOL 

783 

NPYS  *  N^Y 

GOL 

78* 

if ingro.gt.nptsigo  io  isi 

GOL 

785 

00  TO  7  3* 

GOL 

786 

1S1 

CALL  RGRU(NGnO) 

GOL 

78  7 

NOB  a  NPTS#NPY 

l*UC 

788 

RMlTEt6.1S*>NPT5S.NPY5.NPIs«NPY 

GOL 

789 

IS* 

FORMAT (///5X.*lH  TOON  ORIGINAL  F IfeLU ( . 1 A. IM»* I3.39MI  MAS  BEEN  REGN 

GOL 

790 

1I00E0  TO  A  LANGE*  SUE  I  . 1*. 1M*« 1 3.A5M)  10  GIVE  !m£  FIELU  NONE  HOO 

GOL 

791 

*m  ro  oo  irs  thing///) 

GOL 

79* 

GO  TO  999 

GOL 

793 

♦ 

GOL 

?V4 

resonator  convergence  test 

GOL 

795 

10 

NITER  ■  NlTiM»l 

GOL 

796 

RH1TE  (6. BOS)  NITER 

GOL 

797 

60S 

FORMAT  (////36M  IMIS  IS  I  HE  COMPLETION  OF  HERAT  ION  <13  /> 

GOL 

798 

IF ( tNl T . ANO< .NOT .RES TNT  1  ou  (0  71 g 

GOL 

799 

IF(.MOT.iNIT)  go  to  uo 

GOL 

800 

GO  TO  730 

bOL 

801 

710 

PCvNOaO.O 

GOL 

802 

GO  TO  720 

GOL 

803 

730 

REA 0  (0)  (CFIL(U)  tUaltNOMI 

GOL 

80* 

N£a (NO  9 

gOL 

808 

RCVNG«0.0 

GOL 

806 

OO  7A0  U*l.NO» 

GOL 

807 

RCvNG*PCVNG»CF  IL  (  U)  »CONUG (CF  IL  (  U>  I 

GOL 

808 
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760  CONTINUE 

GOL 

809 

PCvNGaRCVNG*  ( A  (2)  -X  ( 1 )  1  ••2*(NPTS/NPY> 

GOL 

610 

I F  i NREG , tQ .  1 . OR . NREO . £U .2 1  PC VNGaPCYNG/ »NO«*«2 

GOL 

Oil 

720  FERRal.OU 

GOL 

812 

IF  (PCVNG.GT.O.OlFEMRaPPw/PCVNU-l.O 

GOL 

813 

IF  <A6S(FCRH>  .GT..0U7)  ICExal 

S0077CYI 

187 

PCVNGAaPCVNG/1000. 

GOL 

815 

WHITE  16*  750>PPGX»PCVNGX.FEHR 

GOL 

816 

750  FORMAT (30A.21HFLUA  CONVEHGtNCt  TfcST// 1 OX » 1  OMNEw  FLUX  a,0PGll.6. 

GOL 

817 

a12n  OL0  flux  a,GU.6.4M  tRROH  a, Fa.*///) 

GOL 

816 

PCvNGaPPa 

GOL 

819 

WHITE  (41  (C0(U)  .Ual.NOB)  .A.OHA.OHY.NITER 

GOL 

820 

H£a I NO  4 

GOL 

821 

IF  (1CEK.EU.0)  GO  TO  565 

GOL 

622 

IF  (1CAO.OT.O)  CALL  HE9AININCI.  NITER) 

GOL 

823 

IF  (Nl TER*Nl T  .GC.1GOL  1991 )  (iU  TO  1001 

GOL 

826 

HEAO  (6)  (CU(U)  lUaiiWMI  .X.ORX.ORY. NITER 

Gol 

82S 

RCaINO  6 

GOL 

626 

IF  (1CAY.GT.0)  00  TO  99 

GOL 

627 

C  RCNOMMALIZA T IOM  OF  INPUT  HCLU  FUN  BARE  RESONATOR 

GOL 

626 

IF  (.NOT.INITI  00  TO  HO 

GOL 

829 

F**X  a 

GOL 

630 

oo  ai  ia*i. nub 

GOL 

831 

IF  (CA8S(CU( IX) 1 .LE.FMAX)  GO  TO  8 T 

GOL 

832 

FNAA  a  CASSlCUt IX) 1 

GOL 

633 

N*»Ul  *  1* 

GOL 

836 

8  7  CUNT  Inu£ 

GOL 

83S 

86  TESTaCAHSICUINPOl) > 

GOL 

636 

00  77  IXal.NOb 

GOL 

837 

77  CU(lA)  aCU(lX)  /TEST 

i»OL 

838 

50  TO  94 

GOL 

839 

10U1  HEAO  (41  (CU  l  U)  * U»l «N08>  . A. ORA ,OHT 

GOL 

860 

HEwI.MU  4 

GOL 

861 

GO  TO  1000 

GOL 

862 

GOL 

86  3 

c  Calculate  ucalc  flua  ano  mirror  ano  apehiure  i 

LOSSES 

GOL 

866 

449  PPw  a  0. 

GOL 

865 

N0a*NFTS*NPY 

GOL 

866 

OO  7b  I Z*l .NUM 

GOL 

867 

78  PPwaFPw.CU(lZ>6CUNUG(CU(U>  ) 

GOL 

868 

pp««pp»« ( X (2 J -A ( i ) ) w«2* INF TS/NFY ) 

<iUL 

869 

IF(NREG.EU.1.0R.NM£G.fcU.2)FPGaPPw/WNU«**2 

ML 

850 

P8HlR*PPw 

ML 

851 

GO  TO  (998. 997. 998. 446. 947)  .IGNAl 

GOL 

852 

997  PBMlR»PPw/WMlRH 

GOL 

853 

PMlRLatP»HIH-PPG)/1000. 

bUl 

856 

PMlHLPa<PBMlH-PPG)/P8NlR6lO0. 

GOL 

855 

wRl TE (6.495) PMIHL.PNIRLP 

GOL 

856 

995  FUHHA  T ( 1 7h  HI WHOM  LOSS  a.Uia.*. lHa.Fb.Z.bH 

PERCENT) 

GOL 

857 

IF ( lUNAL.E0.5l  GO  (0  998 

GOL 

858 

996  APLOS*(SPPW-PBMIH>/IOOQ. 

GOL 

859 

APLOSP* ( iPPw-PBN IH )  /SPPw* 1 00 . 

GOL 

860 

IF ( ICNTL.EO.il  GO  TO  99H 

GOL 

861 

W« l TE (0. 996 1 APLOS . APLOSP 

GOL 

662 

996  FORMAT! I 7H  APERTURE  LOSS  a,i»l2.6«  lHa,F8.2.6H 

PERCENT) 

GOL 

863 

948  PPw*aPPB/1000. 

GOL 

866 

IGhAL*! 

GOL 

865 

SPPWaPPW 

GOL 

866 

OCALCPaX (NPT5) •2.*A(1)*A(2) 

GOL 

667 

IF (MSTEP.NC.il  HR I TE <6. 79) PP»A  tUCALCF 

GOL 

866 

79  F0«M*T<///3aH  ELEMENT  TRANSMISSION  FonCTION  APPLIED/BX. UMOCALC 

FL 

GOL 

669 

AOX  a,  G12.6/8X.  12H0CALC  ».F8.2  ) 

GOL 

670 

IF (MSTEP.CQ. 1 >  WRITE (6*  779) PPWH 

GOL 

671 

774  F0RMAT(///J6M  PROPAGATION  STEF  HAS  8EtN  APPLIED/  8X.1ZMDCALC 

FL 

GOL 

872 

AOX  a.  GU.*I 

GOL 

673 

MSTCPaO 

GOL 

876 

3623  IF  ( 1 PLOTS. CU.O)  GO  TO  362* 

GOL 

875 

WRITE  (8.3665)  (GNOT(lCNTL.l).IaliHO) 

GOL 

676 

CALL  IPLOTUPLOTS) 

GOL 

87T 

IF  (IGATE.Ne.O)  GO  TO  3625 

GOL 

678 

J6*5  FORMAT  (2SM1  PLOTS  AFTER  SIEP  ••••••  .20A6.  6Ma*666*» 

GOL 

679 

3626  IF (PPa.Lt.U. ) GO  TO  732 

GOL 

660 

un^H  y.  1 w  u,  j.v  ip^wnpvwm 


3*24  CFuwor.iNinso  to 

GOL 

ooi 

00  TO  1004 

GOL 

a  e2 

S6S  NWlTt<6«600INlT£H 

GOL 

803 

600  FOHHAM//  12U(1hS)//*SH 

i i eh a r ion  is  coNvewofeo  afte 

GOL 

80* 

X  H,U,  1*H  ITtWATlONS 

7/120  < lH*l //) 

GOL 

80S 

IF  (KAuTO. £0.1)00  TO  96 

GOL 

806 

00  TO  1000 

GOL 

80T 

*00  HtTUWN 

GOL 

800 

732  aWITE<6.733) 

GOL 

809 

/ 33  FOP**! 1///81H  ALL  WIGHT 

rwtwts  ain  r  no  punch  in  this  wtwt 

UEAH  A 

GOL 

890 

ANO  Tn£  WCASON  «t  W£  ALL 

WCWE/MH  16  PUNCH  SO  THIS  300  IS 

GOING 

GOL 

09i 

ATO  LtJ  ANO  MLLEU  UUlCA 

/2JH  •••CHtCA  INPUT***  //) 

GOL 

892 

STOP 

GOL 

893 

73a  aw  1  T£  1 6 *  /  35 )  NGWO •  HP T  S 

GOL 

89* 

79b  FOWMAf <///3A«26H*a*A*X* 

VALUES  OF  NGWO  ( • I*< 12H>  ANO  NPTS 

(.1*. 

GOL 

894 

ISOM)  WAAfc  THIS  OMtHATlOH  OnHtLiSS 4N7  OH  PHONG  *A*A*A*///) 

GOL 

89* 

STOP 

GOL 

89  7 

£HU 

GOL 

898 

14 .  SUBROUTINE  INTERP 

a.  Purpose  —  Subroutine  rNTERP  performs  linear  interpolation  on  two- 
dimensional  real  functions  and  on  the  real  and  imaginary  parts  of  two-dimen¬ 
sional  complex  functions.  Figure  32  describes  the  subroutine  INTERP  organiza¬ 
tion. 


b.  Relevant  formalism  —  Consider  first  the  one-dimensional  case  in 
Figure  33.  Assume  the  function  value  f  is  desired  at  a  point  x*,  between 
Doints  x.  and  x,,  with  associated  function  values  f,  and  f.,,  respective lv: 

I  4*  1  .  -i 


Linear  interpolation  between  f^  and  f.,  yields  f  as 


f(x*)  as  f1 


Cx 


•V 


(x:  -  xT) 


(f. 


fl> 


(108 1 


where  the 

(xx,  x,) . 


is  used  since  we  are  approximating  f  over  the  subinternal 
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INTERP.  2 


INTERP.  29 


INTERP.  30  — ■ *■»  INTERP.  43 


INTERP.  44 - ■»  INTERP.  56 


INTERP.  57 - »-INTERP.  79 


Figure  32.  Subroutine  INTERP  organization. 
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Figure  33.  One-dimensional  function  case. 


For  the  two  dimensional  case  in  Figure  34,  subroutine  INTERP  establishes 
the  location  of  the  far  comers  of  the  rectangle  bounding  the  desired  point 
(x,y) ,  then  linearly  interpolates  across  top  and  bottom  to  find  the  two 
values  at  x.  It  then  interpolates  between  these  two  points  to  find  the  value 

at  (x,  y) : 


1«**<xt.y,)-«>f, 

24>|x,,Y,)Of2 

etc 

(x.y)  Position  of 
Desired  Interpolate 


■  f(x,,y,) 

=  f(x2,y,  )• 


(109) 


Figure  34.  Two-dimensional  function  case. 


(x  *  xi^  ff  -  f  ) 
f(x,y2)  *  fTQp  -  f.  *  T7-r-^)  4  a1 


(x  -  Xj) 

f(x,y1)  ® ^BOTTOM  “  ^1  (x,  -  xT)  ‘  fV 


(1101 
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nonnonnor.  oono 


f(x,y)  =  f 


BOTTOM 


~<y  - ] 

J-?2  ■  >'l5J 


ff  -  f  1 
’■TOP  BOTTOM^ 


c .  Fortran 

Arguments : 

TXY 

(XIN,  YIN) 

-  an  array  containing  coordinate  information 

*  the  point  at  which  the  function  value  is  desired 

TZ 

=  the  function  to  be  interpolated 

TYPE 

*  1  real 

=  2  complex 

=  two  element  array  containing  the  interpolated 

value. 

Note:  If  TZ  is  real,  ZZ  must  still  be  dimensioned  to 

2  in  the  calling  program,  then  the  first  element  used 

as  the  answer. 

NSYM 

*  1  symmetric, 

=  0  nonsvmmetric 

Note:  Interpolation  outside  the  region  of  definition 
of  the  distribution  returns  (0.0,  0.0)  as  the  value 

of  the  interpolate. 

There  are  no  commons  and  no  other  subroutines  are  called. 
Computer  printouts  of  subroutine  INTERP  follow. 


SUBROUTINE  INTERP  76/176  OPT- 1  FIN  4.6+452  04/27/79  12.23.47 


SuriHouTlNC  InTEhhitay  .ain.t  In.  u  .  r yhe.iz.nsymi 

This  wOulINt  outs  *  LINE AH  INI EHHULA T IUN  UN  The 
AHHAY  T  L  Tu  FINU  t  HE  VALUE  U  AT  A  IN*  YIN 

theta. yi  Ohio  o+  r  i  is  cunt  a  inlu  in  ihe  akhay  tat 
AS  FOLLOWS  I 

Tat (  l )  a  OA«SHaCInu  etT-EtN  A  HOInTS 
TAYU)  a  Of-SHACINli  H^TattN  T  POINTS 
TXtlJI  a  NY*  NO.  OF  POINTS  ALONti  Y-AAIS 
TAY (»)  a  NX*  NO.  OF  POINTS  AlONO  A-AA1S 
TAYIS1  ■  YU).  HIN.  Y  VALUE 
rxt(«*NY)  a  TINY).  HA A*  Y  . ALUt 
TXY(*>»NYI  a  All).  HIN.  X  TALUt 
rxY(*»NY«N A)  a  A (NX).  HAA.  A  VALUE 


INTEHH 
INTEHH 
INTEHH 
INTEHH 
INTEHH 
INTEHH  r 

Intehh  a 

INTEHH  9 

INTfcHH  10 

iNifcHH  11 

INTtHH  U 

INTEHH  1J 

INTEHH  1* 

INTEHH  IS 
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<r  ur  #  c«i  m 


► 

[ 

I 


i 


i 

f. 


i 


* 

f 

i  ; 

! 


c 

NO  lb  MAX,  DIMENSION  or  FIRST  VARIABLE  IN  TZd.J) 

INTERN 

16 

c 

type  a  1  T Z  lb  REAL  ARRAY 

intern 

17 

c 

«  i  U  IS  COMPLEX  ARRAY 

INTERN 

10 

LEVEL  it  Util 

INTtRN 

10 

DIMENSION  ZZt2>«IXY<lI.TZ<l) 

INTERN 

ZO 

INTEGER  TYPE.  COMNLA 

INTERN 

21 

COMPLEX  UZZ.CZl .CZ2.CZ J.CZA.CAA.CZb 

INTERN 

22 

OATA  COMNLA  /  i  / 

intern 

23 

OX  a  TXT <11 

INTERN 

2A 

OY  a  TXT (2) 

INTERN 

25 

NY  a  TXY <31 *.00001 

INTERN 

25 

NX  a  TXYtAl*. OOOOl 

INTERN 

27 

ZZlll  ■  0. 

INTERN 

20 

ZZ(2)  a  J. 

intern 

29 

c 

TEST  10  SEE  IF  AlN.YlN  LIE  aifMlN  DEFINED  U  REGION 

intern 

JO 

IF  (XIfl.LT  .TXY  <S*NYI  )  60  Tu  1000 

intern 

31 

lF<xiN.ar.rxY<  a*nx«nyh  «o  to  1000 

INTERN 

32 

IF(YlN.LT.rxYTS) )  00  TO  1000 

INTERN 

33 

IF (YIN. OT .0.. ANO.NSYM.EU.il  SO  TO  1000 

INTERN 

JA 

IF  (YIN.(ir.rxr<NY*Al  .ANO.NSYM.EU.O)  00  TO  1000 

intern 

35 

c 

F INO  POSITION  OF  (XlN.YlN)  IN  OHIO 

INTERN 

36 

11  a  1« (X IN-fXY <5*NY) 1 /OX 

intern 

37 

J1  a  !♦ (YIN-TXY (51) /OY 

INTERN 

30 

lFdl.EU.NAI  IlaU-1 

intern 

39 

IF  U1.EU.NY.AN0.NSYM.EU. 01  JlaJl-i 

Intern 

AO 

SA  a  (AlN-TXY ( Ii*A*NV! )  FDA 

INTERN 

A 1 

SY  a  (Ytn-TXY <J1*AI 1 /OY 

INTERN 

A2 

c 

FINO  U  VALUES  AT  U.IlM.Jl.Jl*! 

intern 

A3 

IF (TYPE .eQ.CUMHLAl  00  TO  ZOO 

intern 

A* 

c 

TZ  IS  THEATEO  AS  PEAL  AHHAY 

intern 

AS 

IJ  a  Il«NX»(Jl-U 

INTERN 

A6 

Zl  a  THU) 

intern 

A7 

Z2  a  THIJM) 

INIERN 

A« 

IJ  a  l 1 ♦NX* ( J 1 1 

intern 

A9 

IF  (Jl.EU.NY)  lJ*ld-NX 

intern 

SO 

zj  a  (HU) 

INTERN 

SI 

ZA  a  TZ(UM) 

INTERN 

52 

ZA  a  Z1*SX»(ZZ-Z1I 

INTERN 

S3 

ZU  a  ZJ*SA*(Z*-ZJ> 

INTERN 

5a 

ZZ(1)  a  ZA*SYMZB-ZAI 

INTERN 

55 

00  TO  1000 

intern 

56 

ZOO  CUNTINUE 

intern 

57 

c 

IZ  IS  THEATtO  AS  COMPLEX  AHMAT 

INTERN 

sa 

IJ  a  TYPt*(ll*NA*<Jl-ll I  -  l 

INTERN 

50 

Z 1 A  a  TZdJl 

INTERN 

60 

Z la  a  TZ l l J* 1 ) 

INIERN 

61 

CZl  a  CMMLX (ZlA.Zldl 

INTERN 

62 

Z2A  a  TZdJ*Z) 

intern 

63 

Z2d  a  TZdJ*J> 

INIERN 

6A 

CZZ  «  CMPLA 1Z2A.ZZB) 

INTERN 

65 

IJ  a  TYPE*(ll«NX«Jl>  -  1 

INTERN 

66 

IF  (Jl.EU.NY)  ijilJ-NXaTYPt 

INTERN 

67 

ZJA  a  TZdJl 

INTERN 

68 

238  a  TZ ( I J*l) 

INIERN 

69 

CZJ  a  CMNLAfZJA.ZJBI 

INTERN 

70 

Z*A  a  TZ<U*2> 

INTERN 

71 

Z*8  a  TZdJaJT 

INTERN 

72 

CZA  a  CMNLA(Zaa.ZAB) 

INTERN 

73 

CZA  a  CZl»SXa(tZ2-CZl> 

INTERN 

7a 

CZB  «  CZJ*SX»<CZA-CZJ) 

INTERN 

75 

CZZ  a  CZA*SY*ICZ»-CZA) 

INTERN 

76 

ZZ(1)  ■  HEAL (CZZ) 

intern 

77 

ZZ IZ)  a  A I MAS (CZZ ) 

INTERN 

78 

1000  return 

INTERN 

79 

ENU 

intern 

SO 

j 


j 
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15.  SUBROUTINE  IPLOT 


a.  Purpose  --  Subroutine  IPLOT  has  two  major  purposes:  One  is  to  create 
a  printer  iso-intensity  plot.  The  other  is  to  find  the  maximum  intensity  and 
to  print  the  first  title  used  by  subroutine  OUTPUT.  It  also  contains  the 
necessary  information  used  by  both  subroutines  OUTPUT  and  OUTPUR  to  determine 
whether  a  particular  slice  plot  should  be  printed.  Figure  33  describes  the 
subroutine  IPLOT  organization. 

b.  Relevant  formalism  —  The  output  of  this  subroutine  is  an  array  of 
one-digit  adjacent  members  with  at  least  one  asterisk,  which  indicates  the 
maximum  intensity  points.  The  numbers  indicate  relative  intensities. 

c.  Fortran 
Argument  List 

The  only  argument  of  subroutine  IPLOT  is  the  parameter  IPLTS  which  con¬ 
tains  the  information  needed  by  OUTPUT  (and  OUTPUR)  as  well  as  IPLOT.  IPLTS 
i  ".lied  with  zero  to  five  digits,  each  of  which  is  0  or  1.  If  it  is  0, 
t.ie  indicated  plot  is  not  done;  if  1,  it  is  plotted.  Assuming  that  the  five 
digits  of  IPLTS  are  written  ABODE,  the  associated  plots  are: 

A:  Radial  (calls  OUTPUR  -  not  available) 

3:  Iso-intensity 

C:  X-axis  slice  plot 

D:  Diagonal  slice  plot 

E:  y-axis  slice  plot 

Common  Parameters: 

The  only  common  modified  is  CFIL  due  to  its  equivalence  with  US,  the 
intensity  array.  The  other  parameters  have  then  usual  meaning  including 
PLOTSG . 

Recall:  PLOTSG  >  0  ■*  intensity  slice  plots 
=  0  no  plots 
<  0  ■*  amplitude  slice  plots 
Subroutines  called-  OUTPUT ,  nirppt.ro 

Computer  printout  of  subroutine  IPLOT  follows. 
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LR0P1  22-*fcLROP1  43 


LR0P1,  44-«^LR0P.  57 


LR0P1.  58— -LR0P1. 67 


LR0P1. 68— LR0P1.  79 


LR0P1  30— LR0P1  85 


LR0P1. 86— LR0P1.  105 


Figure  35.  Subroutine  IPLOT  organization. 
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SUBROUTINE  IPLOT 


76/176  0PT=1 


FIN  4.6+452  04/27/79  12.23.47 


SUbHOoT INC  1MLQT (IMLTSl 

LM0P1 

22 

1S0-InTE'.5UY  MkInIEM  MLOI 

LM0M1 

23 

This  houIInE  MAKES  a  MMInTeM  MlQT  OF 

INTEN5ITY  aMEME  TMt  0IS1T 

LM0M1 

2+ 

MM l  N  T  tO  •  10  15  JEClLt  OF  JEAK  1NTEn51TY  FOW 

THAT  ECtMENf. 

LMOPl 

25 

LEVEL  2*  COM. OS 

LM0P1 

26 
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LMOPl 

2T 
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LM0M1 

28 

COMMON  /ML T SIS/  MOOT  So 

LMOPl 

29 

DIMENSION  US  11636+  ).  11  (1501 

LM0M1 

30 

IN7E0EM  11.UCANK.00T 

LMOMl 

Jl 

LOGICAL  1S0IM.XAA1S.01AG. YAA1B.HAUML ( 

LMOPl 

32 

COMPCEA  CF 1C 

LMOPl 

33 

EUOlVACENCE(CFtC(  1  l.obl  1  11 

LMOPl 

3+ 

DATA  IBCUM  /  +NM  / . IBCUA/+HA  / 

LMOPl 

35 

IF  (MCOTSS.td.O.l  MtroMN 

LMOMl 

36 

IMoHaa 18C0X 

LMOPl 

3T 

MAOMCIs.FACSE. 

LMOPl 

36 

ISO lMa«F ALSE . 

LMOPl 

39 

XAAlS*. FALSE. 

LMOPl 

+0 

OlAGa. FALSE. 

LMOPl 

+  1 

YAAlSa. FALSE. 

LMOPl 

+2 

IML«IML(5 

LMOPl 

+3 

IF  (IML.LT. 100001  SO  TO  290 

LMOPl 

+« 

RAOMLT  «  . THOE. 

LMOPl 

+5 

I ML  a  IML  -  10000 

LMOPl 

+6 

IMOHA  a  1BC0H 

LMOPl 

+  7 

240 

IF  (tML.LC.iOOUl  SO  TO  300 

LMOPl 

+8 

ISOIMa.THUE. 

LMOMl 

*9 

IML  a  IPL  -  tfl  < 

LMOMl 

50 

JUO 

IF  (IML. LT. 1001  SO  TO  +00 

LMOMl 

51 

AAA  IS  «  .  Mot. 

LMOPl 

52 

I PL  a  IPC  -  100 

LMOPl 

53 

+00 

IF  (IPL.cr.lOl  SO  TO  500 

LMOPl 

5+ 

OlAGa  .TMUE. 

LMOPl 

55 

IPC  a  IML  -  10 

LMOPl 

56 

500 

IF  (1ML.NE.0I  YAAISa.TPUE. 

LMOPl 

57 

PlaJ. 1+1592 

LMOMl 

58 

0AaA(2)-A(l) 

LMOPl 

59 

AOIMaOA+NPTS 

LMOMl 

60 

NOB«NMTS*NPY 

LMOPl 

61 

aFaCT»1  . 

LMOPl 

62 

IF  (NHES.E0.1.0M.NHES.EU.21  AF AC T» 1 ./ #NOa*+2 

LMOPl 

63 

UMAXaO. 

LMOPl 

6+ 

OO  1  Jal.NOB 

LMOPl 

65 

US(J)»  ICUH(2+J-ll++2  »  CUM12+JI++21 

• 

AY  ACT 

LMOPl 

66 

1 

OMAAaAMAAl (UMAX. OS (  0  1) 

LMOPl 

67 

IF  I.NOr.lSOlM!  SO  TO  OH 

LMOMl 

68 

OMAXKaUMAX/1000. 

LMOMl 

69 

IF (NPY.Lfe.S+l SMITE (5.51  I MONA 

LMOPl 

70 

5 

FOMMA7I9A.A1  1 

LMOPl 

71 

IFINMY.Ct.S+lbO  TO  90 

LMOPl 

72 

OO  +  jal.NMTS 

LMOPl 

73 

00  2  lal.NPY 

LMOPl 

7+ 

12  a  j  .  U-ll+NMTS 

LMOPl 

75 

2 

11  (I)«10. *US (  121 /UMAX 

LMOPl 

76 

* 

•MITEI6.J1  ( 11 ( 11 .lal.NMYi 

LMOPl 

77 

3 

FomMATI  1X.12B11I 

LMOPl 

78 

SO  TO  9M 

LMOMl 

79 

00 

00  1+  jal.NMTS 

LMOPl 

BO 

00  12  lal.NMV 

LMOMl 

61 

12  •  J  »  (1-1>»NMTS 

LMOMl 

62 

12 

11(1) a  10. *OS (  121/OMAA 

LMOPl 

63 

1  + 

WMI  Tt  (0.13)  A(J1  .  in  (l)  •  lal.NMYi 

LMOMl 

6+ 

13 

FOMMAK  Ia.F  10.2.2A.S+U) 

LMOPl 

65 

08 

aHlTElA.S)  AO  IN.  UMAAK.OMA.OMY 

LMOPl 

66 

0 

FOMMAT ( 10HO  OCAcC  a  .S11.5.+A. 7H1MAA 

■ 

.Si  1  .' 

LMOMl 

67 

A  39HTHE  CENTEX  OF  TnE  BEAM  IS  LOCAIEO 

AT 

LMOMl 

68 

IF  (PLOTSG.Gf.U.)  GO  TO  1900  LH0P1  99 

if  i.Nur.nAOHi.n  *mrt  <««n  lhufi  40 

7  FUhMA  r  (  irtUPl  91 

agohiamfui ruuc*  phase  PEuTrtu  in  mt  a-uikectiun  thhuugm  rut  cente  lhupi  92 

AH  OF  UCACC  <J«NPTS/2>  (.HOP  I  93 

UMAAA«SGHT (UMAX)  LHOPl  46 

GO  TO  1990  iMOPl  99 

1900  »MITE  (9*  706)  IKUPI  96 

M»6  F OHM  At  l  LHOP1  97 

X90hI INTENSI TV •  PHA 9E  PEUTTEU  IN  THE  A-OIHECIION  T HNOUGH  THE  CENTE  LHOP1  9* 

AH  OF  OCALC  (JANHTS/2)  CM0P1  99 

UMAX  A  «  UMAX  L.HOM1  100 

1990  IF (NHEG.NE . 0 . ANU.PLU  TSG.L T  •  U  «  >  UMAX A»UMAX A*anOa  (.MUPl  101 

IF (NHtG.NE.I).ANU.Plv)l9G.uf .0.)  UMAX AaUMAAA*WNO«**2  (.MUPl  102 

IF  (.NOT.HAOHl.Tl  CAU.  OUTPUT  (CUR «NPV ,NPT9« X. j.UMAXAf XAXIStOl Att.  (.HOF  1  103 

X  VAX 19  I  UMOPl  106 
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It) .  SUBROUTINE  KINE7 


a.  Purpose  —  This  subroutine  calculates  the  kinetics  and  loaded  gain 
in  the  gas  dynamic  laser  cavity.  It  is  called  by  GAINXY  for  either  small 
signal  gain  calculation  (along  a  single  stream  tube  in  the  x-direction)  or 
full  field  loaded  gain  along  several  stream  tubes.  Figure  36  describes  the 
subroutine  KINET  flow  chart. 

An  intensity  field  XIC  and  previous  gain  field  CAN  are  brought  in  from 
GAINXY  and  are  updated  by  recomputing  the  kinetics  and  gain  in  the  cavity  as 
a  function  of  these  updated  fields.  The  population  rate  equations  (i.e., 
the  equations  showing  the  rate  at  which  the  energy  of  each  vibrational  level 
is  changing)  are  numerically  integrated  along  the  x(flow) -direction.  This  is 
continued  along  the  x-direction  until  the  end  of  the  calculation  region 
(IXMAX)  and  is  then  redone  for  each  stream  tube  in  the  y-direction  (if  full 
loaded  gain  is  requested  by  IFIELD  i  1) .  The  full  gain  field  GAN  (I)  is 
then  updated. 

The  assumption  is  made  that  the  flow  area  of  the  cavity  is  constant 
through  the  region  of  interest  for  all  kinetics  calculations. 

b.  Relevant  formalism  —  Gain  is  calculated  in  the  x-direction  from 
nozzle  exit  plane  to  the  end  of  the  region  of  interest  IXMAX  at  a  constant  v 
value,  as  shown  in  Figure  37.  This  is  done  along  only  one  mid-cavity  stream 
tube  for  small  signal  gain  calculation  and  at  every  v-value  (IY)  for  the  full 
field  loaded  gain  calculations. 
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C (tiled  tiuiii  GAINXY 


36.  Sub  rout  i 


IXMAX 


x 

IY 


Figure  37.  Region  of  interest  IXMAX. 


Rate  equations  are  set  up  for  each  level  which  describe  the  energy  in 
that  level. 


(Ill) 


(112) 


(113) 


The  energies  of  each  level  EN2,  EOOV,  EVOO  and  EOVO  are  updated  at  each  AX 
step,  i.e.,  the  AE  change  is  computed  and  the  corresponding  heat  addition 
(local  temperature  change)  is  used  to  compute  the  energy  in  the  subsequent 
step. 

The  stimulated  emission  energy  rate  can  be  used  to  determine  local 
intensity  change  and,  hence,  gain.  Energies  of  levels  are  described  by 
population  densities  n^  and  n^: 


dl 

V 

dS“ 


u^L 


hv 


nul(v)ulaul(j)“ 


(114) 
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m '"t1-  W  “P  JL  *** 


where  I  is  the  specific  intensity  at  the  frequency  v:  n^  is  the  population 
density  of  the  upper  level;  n^»  that  of  the  lower  level;  A^  the  Einstein  co¬ 
efficient  for  spontaneous  emission;  B^,  the  stimulated  emission  coefficient; 
and  B^,  for  absorption.  The  quantities  nUL>  and  0^  are  the  line  shape 
functions  for  the  three  respective  processes,  which  are  generally  different. 

Characteristic  times  for  the  spontaneous  decay  of  low-lying  vibrational 
states  for  molecular  species  of  interest  are  of  the  order  10_1  to  10  3 
second,  whereas  other  rate  processes  are  typically  much  faster.  Hence,  in 
the  equation  above,  the  spontaneous  emission  term  generally  can  be  neglected. 
Also,  for  the  oresent  analyses,  interest  focuses  primarily  on  photon  pro¬ 
cesses  occurring  at  line  center.  At  line  center  0T,.  ■  n()J  .  Thus, 


dlv 

it1  3  hvW 


n  -B,,,n. 
u  LU  L 
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The  factor  multiplying  I  is  the  optical  gain  coefficient,  vi:: 
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hv4  ,  v 
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The  Einstein  coefficients  are  connected  by  the  relationship 


8 

B 


LU 

UL 


(117) 


where  d^  and  are  degeneracies  (statistical  weights)  of  the  upper  and  lower 
states,  respectively.  Also,  it  is  possible  to  write 
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LU 


8ir 

— 2 

3h  c 


(118) 
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where  R^y  is  the  quantum-mechanically-derived  transition  matrix  element. 
Hence,  the  gain  expression  may  be  rewritten  as 


8* 

SUL  ’  IF 


sf  (r)  dLU  (vo) 


2  In  n. 

i  I  u  L 


LU  I  du  dL 


(119) 


Jj  a  vo  $  v 

®vj  3h  c  ?LU  o 


(120) 


Consider  vibrational-rotational  transitions  of  the  form 
(v+1,  J)  *  (v.J) 

where  v  is  the  vibrational  quantum  number  and  J  is  the  rotational  quantum 
number. 


where: 


lRLU I  =  ^Rv,  v+1 


J  for  P-branch  transitions  (i.e.,  J'  *  J  +  1) 

J  *  1  for  R-branch  transitions  (i.e.,  J'  *  J  •  1) 


Rv'  v+1  3  vibrational-transition  matrix  element 


At  pressures  of  a  few  torr  or  less,  transitions  are  predominately 
Doppler  broadened.  At  higher  pressures,  the  combined  influence  of  Doppler 
and  pressure  (Lorentz)  broadening  is  present.  Therefore,  the  line-shape 
factor  0LU  (vQ)  is  represented  in  terms  of  a  Voight  profile  such  that 
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C  WV  =  (  2JTKT  ^ 


expL?J  erfe  (?) 


V'V’^Jf’oO!  •  *001  *  J  W*1’  *roi 

(®02aCp 


^2 fl-KT  ) 

-  '  C^D  .™) 
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(123) 


(*020 
1  rot^ 


001-»100 


CO 2  -  CO 2  10-s  x  10-1S  ^2 


(124) 


001  -02° 0 


#C02  “  C02  3  10.2  X  IQ' 15  cm2 


(125) 


The  influences  of  Doppler  broadening  and  vibration-rotation  interaction 
have  been  taken  into  account. 


where 


(126) 


a 

P 


pressure  broadened  (Lorentz)  half-width 


T 

2ffC 

s 


V  X 
s  s 


aQ  *  Doppler  broadened  half-width 


.  Io  J  2kT(ln2) 
-2  *  m 


vs  is  the  mean  relative  velocity  (\/2kT/M)  between  the  emitting  molecule  and 
the  colliding  species;  Xg  is  the  species  mole  fraction,  ag  is  the  broadening 
cross-section  due  to  the  impacting  species  s;  vq  is  the  transition  frequency 
at  line  center;  m  is  the  mass  of  the  emitter  molecule;  and  M  is  the  reduced 
mass  between  an  emitter  molecule  and  the  collider  molecule  of  species  s: 
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The  optical  gain  coefficient  may  be  rewritten  as 


g(V,Jl 


i’ll  l  Jl_Y2 

5h  \2*kT/ 


°(S)SJ  JRv,vl 


n  ,  j  n  T 
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(128) 


Here  the  quantities  V  and  J  in  the  expression  g(V,J)  indicate  the  lower 
levels  of  the  transition. 

In  treating  the  populations  of  the  vibrational-rotational  levels,  it  is 
assumed  that  the  rotational  mode  can  be  described  by  the  local  translational 
temperature  T.  Hence, 


V ,  J 


M 


%• 


dT  exp  [-1.439  J (J+l)  f  B  -  a  (v+VI/t]  n 

__  J  j,  6 _ © _ J  V 


(129) 


where  B  is  the  spectroscopic  rotational  constant  (cm  ) ,  and  a  is  its 

(vl  e 

anharmonic  correction.  The  quantity  is  the  rotational  partition  func¬ 

tion,  which  is  evaluated  according  to  the  relation 


(V)  =  £  (2J+1)  exp  (-Erot  (J,V)/kT) 
J 


(130) 


The  populations  can  also  be  represented  by: 


Vs  Vj 
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where , 
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5  CV) 

'rot 


»  CV) 

Jrot 


%  exp  W 

gVJ  gV  ^  \  kT  /  rot 


-L  =  n  exp  (_-$  /T  ) 
g  ooo  41  "v  V 


0  =  characteristic  temp,  of 


state 


T  *  vibrational  temperature  of 


state 


gy>  g  represent  degeneracies 


For  the  transitions 

C02  (001, J) 
CO,  (001, J) 


C02  (100, J±l) 
CO,  (02°0,  J±l) 


the  pertinent  constants  are: 


-13 


R001,100  3  °'0331  X  10  esu"cm 

•  _i  g 

R001  02° 0  3  0.0295  x  10  esu-cm 


,(001) 

rot 

ef02°0) 

rot 

(100) 


0 


rot 


0.55652  K 

0.56106  K 

■  0.56073  K 


9 001  *  3380  K  e!00 


1997  K 


902o  *  1850  K 


The  expressions  for  the  gain  coefficients  on  two  transitions  are 
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2™?”!  =  (0.79  X  10"14)  Imi  (1  -  0.0044m)T  2  n  X  $  <’0. 55632) 
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-(0.56106)  exp  -  j'(j+l)  (0.56106/T)fl 


where  ma-(j+l)J'*J+l  (P) 
m  *  J  J*  =  J  -  1  (R) 

p 

n  =  total  number  density  =^p- 


X  =  mole  fraction  of  ground  state  CO-  (from  program] 
ooo  2 


J'  *  0,2, 4,6, 


For  largely  pressure-broadened  line,  0  may  be  expressed  as: 


,  1  f.  O.S  0^75  1. 

l1  -  72  —  -  “ 


875  6.5625 

T'~T 


Argument  List 


XIC  The  field  (matrix)  of  individual  intensities  in  the 

calculation  region 

GAN  Gain  (updated)  of  each  of  the  point  locations  of  the  field 

IXMAX  Number  of  points  in  the  flow  direction 
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DXCAV  The  distance  between  points  in  the  x-direction 
IFIELD  Indicator  for  small  signal  gain  (IFIELD  *  1)  or  Loaded 
Gain  (IFIELD  t  1) 

IY  Number  of  flow  streams,  i.e.,  points  in  the  y-dimension. 

Commons  Modified 

/PROPT/ 

Static  temperature  in  the  cavity  (K) 

Static  pressure  in  the  cavity 
Gas  velocity  (cm/sec) 

Gas  density  (gm/cc) 

Number  density  (particles/cc) 

/ENERG/ 

Energy  (population)  of  the  V  =  1  level  of 

Energy  (population)  of  the  asymmetric  stretch  vibration  mode 
Energy  (population)  of  the  bending  vibration  mode  of  CO., 
Energy  (population)  of  the  symmetric  stretch  mode  of  C0? 
/RATE/ 

Rate  for  stimulated  emission. 
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17.  SUBROUTINE  MIRROR 

a.  Purpose  —  MIRROR  applies  a  mirror  transmission  function  to  the 
complex  field  which  may  include  reflectivity,  clipping,  radius  of  curvature, 
edge  diffraction  imaging,  small  tilt,  astigmatism,  localized  surface  distor¬ 
tion,  and  overall  spherical  distortion.  In  addition,  two  specialized  options 
have  been  included:  (1)  a  toric  mirror  effect  for  axicon  optics  and  (2)  a 
mirror  dimple  effect  which  enables  a  localized  difference  in  radius  of  curva¬ 
ture.  Figure  38  shows  the  subroutine  MIRROR  organization.  Computer  print¬ 
outs  of  the  MIRROR  subroutine  begin  on  page  168. 
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CALLED  FROM  GDL 


MIRROR 


IF  DISTF<  -10.0,  EDGE 
DIFFRACTION  IMAGING 
WILL  BE  USED 


Rout-  ^in  >  0- 


TILT  ANGLE  WILL  BE 
APPLIED  HERE  IF  ANGX 
<  lOOMrad.  AND  .  ANGY 
<100  «rad. 

DOES  RADIUS  OF  CURVA¬ 
TURE  CHANGE  WITH 
TOTAL  POWER?  IF  SO, 
DELTA  >  0 


LOCAL  POINT  DISTORTION 
DUE  TO  INTENSITY 
DIFFERENT  FROM 
MIRROR  CENTER  WITH 
ASTIGMATISM 


LOCAL  INTENSITY 
DISTORTION  WITH 
NO  ASTIGMATISM 


NO  LOCAL  INTENSITY 
DISTORTIONS;  ASTIG¬ 
MATISM  ONLY 


EDI.  1  — •“EDI. 30 


MIRROR.  19 — •►MIRROR.  21 


MIRROR.  22  — —MIRROR. 55 


MIRROR.  56  — —MIRROR.  113 


MIRROR.  114 — •►MIRROR.  141 


MIRROR.  142 -♦MIRROR.  156 


MIRROR.  157— —MIRROR.  171 


Figure  38.  Subroutine  MIRROR  organization. 
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The  routine  first  tests  for  the  option  of  edge  diffraction  imaging  in 
which  the  outer  annular  edge  of  the  mirror  has  a  radius  of  curvature  dif¬ 
ferent  from  the  mirror.  When  this  option  is  used  the  MIRROR  subroutine  must 
be  called  separately  to  apply  EDI. 

The  subroutine  must  be  called  again  for  the  rest  of  the  mirror. 

The  routine  then  apertures  the  field  to  the  sire  of  the  mirror  and 
applies  small  mirror  misalignments  (angles  less  than  100  microradians)  to 
the  field.  For  large  angles,  the  angle  information  is  stored  in  ANGX  and 
ANGY  which  are  located  in  common  MRPROP  and  used  to  later  determine  the 
location  of  the  center  of  the  field.  The  field  itself  is  not  altered  for  the 
large  angles. 

b.  Revelant  formalism  --  A  distortion- free  mirror  is  applied  to  the 
field  in  Figure  39  by  changing  the  optical  path  lengths  of  the  field  points. 
For  example,  apply  a  convex  mirror  to  a  plane  wave. 


Mirror 


Incident 
Phase  Front 


Mirror 


\  Reflected 
\  Phase  Front 


Figure  39.  Mirror  transmission  function  relative  to  the 
Comdex  field. 


Note  that  the  field  at  the  edge  has  traveled  25  more  than  the  center. 
The  size  of  the  sag  6(r)  (Fig.  40)  at  any  point  r  can  be  found  from  the 
sag  formula: 


(R,  -  5) 2  +  r2  =  Rc2 


(135) 


Figure  40.  Graphic  representation  of  SAG. 

Thus,  to  make  the  center  of  the  field  lead  the  edge  by  a  factor  of  25q, 
the  following  transmission  function  is  applied  to  the  field: 


u  (x,y) 


T ( x , y )  u(x,y), 


(156) 


The  sign  convention  used  is  a  negative  radius  of  curvature  for  a  convex 
mirror.  A  concave  mirror  has  a  positive  radius  of  curvature. 

In  addition  to  curvature,  the  MIRROR  routine  can  apply  power  or  flux 
dependent  distortions  to  the  field. 

The  power  dependent  mirror  distortion  can  be  applied  given  the  center- 
to-edge  maximum  sag,  DELTA,  determined  by  design  power,  PWRDES.  The  incident 
power  is  then  calculated  and  the  sag  reduced  by  the  ratio  of  incident  power 
to  design  power.  For  a  ratio  greater  than  one,  it  is  assumed  that  the  sag 
is  that  of  the  design  power. 
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The  flux  dependence  is  applied  assuming  a  distortion  factor,  DISTF, 
which  weights  intensity  changes  from  the  center  of  the  field  and  thus  applies 
an  intensity-dependent  phase  factor  to  the  field. 

Astigmatism  can  be  applied  to  the  field  in  conjunction  with  the  local¬ 
ised  flux-dependent  distortion  or  can  be  applied  alone.  Astigmatism  is 
included  if  PHIAST  is  input  (as  a  number  greater  than  0) .  PHIAST  is  the 
angle  between  the  mirror  normal  and  the  optical  axis  (in  degrees) .  The  phase 
is  altered  by  astigmatism  by  computing  separate  (sagittal  and  tangential) 
radii  of  curvature  for  the  mirror  and  applying  to  vary  the  X  and  Y  component 
of  the  phase  field,  respectively. 

Argument  List 

ANX  Mirror  tilt  in  X  (about  y-axis) 

ANY  Mirror  tilt  in  Y  (about  x-axis) 

RADC  Radius  of  curvature  of  mirror  (cm) 

RIAOUT  Outside  radius  (cm) 

RIAIN  Inside  radius  of  annular  mirror  (cm) 

XPOS  X-direction  offset  of  mirror  centerline  from  optical 
axis  of  beam  (cm) 

YPOS  Y-direction  offset  of  mirror  centerline  from  optical 

axis  of  beam  (cm) 

RFL  Mirror  reflectivity  -  fraction  0.0  ■*  1.0 

DELTM  Total  power  spherical  distortion  factor 

PISTF  Flux  distortion  factor  -  local  intensity  distortion 

f(I.  .  -  I  _  );  (cm/W/cm*-) 

local  center' 

RANULS  Radius  to  annulus  for  toric  mirror  option 
RYOUT  Outside  Y-dimension  (from  center)  for  a  rectangular 
mirror  (cm) 

RYIN  Inside  Y-dimension  (from  center)  for  a  rectangular 

mirror  (cm) 

PHIAST  Angle  of  beam  with  respect  to  mirror  normal  (deg) 

Relevant  Variables 

AKY  2t/WL  *  2it/\  where  ir  *  3.14159 

AiN'GX  Accumulative  x-dim  angle  to  trace  field  in  cavity 

ANGY  Accumulative  v-dim  angle  to  trace  field  in  cavity 
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Cosine  of  phase  change 
CUR  Real  array  representing  the  complete  wave  amplitude 

field,  i.e.,  Intensity  (J)  *  |cUR(J)  J  "  +  |cUR(J-l) j 
DELTA  DELTM,  total  power  spherical  distortion  factor 
FMF  Square  root  of  mirror  reflectivity 

PHASE  Phase  change  at  each  point  of  wavefront 

PHI  Phase  change  in  TORIC  MIRROR  and  DIMPLE  calculations 

PPW  Integrated  power  on  mirror 

RADCUR  Negative  focal  length  of  mirror  (  -f) 

RMSAG  Sagittal  radius  of  curvature  (astigmatism) 

RMTAN  Tangential  radius  of  curvature  (astigmatism) 

SINP  Sine  of  the  phase  change 

WL  Wavelength,  \ 

WNDW  Magnification  factor  for  scaling  power 

2 

XX  X  ;  x-component  of  location,  squared 

YY  Y2;  y-component  of  location,  squared 

Commons  Modified 
/MELT/ 

Array  modified  CUR(I)  3  MIRROR  50,  31,  98,  99,  139,  140,  167 

/MRPROP/ 

Variables  modified:  RADCUR  1  MIRROR  115 

ANGX  3  MIRROR  25 

ANGY  1  MIRROR  26 

EDI  (Edge  Diffraction  Imaging) 

Power  near  the  outer  edge  of  the  beam  that  would  have  been  ordinarily 
lost  through  diffraction  is  partially  recovered  by  incorporating  a  separate 
radius  of  curvature  in  an  outer  edge  annulus,  as  shown  in  Equation  137  and 
Figure  41. 


The  real  representation  CUR  of  the  complex  amplitude  field  is  modified 
as  follows: 

K2  a  EVEN  NOS 
K2MI  =  ODD  NOS 

Real  Part:  CUR  (K2)  =  CUR  (K2-1)  Csin  0)  +  CUR  (K2)  (cos  0) 

Im  part:  CUR  (K2M1)  =  CUR  (K2-1)  (cos  0)  -  CUR  (K2)  (sin  0) 


This  array  is  modified  in  the  same  way  by  the  phase  changes  throughout  this 
subroutine. 

Mirror  Tilt  (<100  urad) 


A4  a  -2  (JaNXKX)  ♦  (ANY)  00] 

where 

ANX  =>  tilt  in  x-direction  ^  radians 
.ANY  =>  tilt  in  y-direction  ^  radians 


(138) 


Power  Dependent  Spherical  Distortion 

This  part  of  MIRROR  subroutine  calculates  the  phase  change  due  to  total 
power  induced  spherical  distortion. 


tt i 


(139) 


166 


where 


167 


I  *  Intensity  at  coordinated  x,y  (W/cm_) 
Ref  *  Mirror  reflectivity 
WNOW  =  VAMP  power  correction  factor 


Astigmatism  (Only) 


where  RSAG  ,  radc/cos  <j>  ast  (cm) 

and  'S' AN  =  RADC  (cos  <j>  ast)  (cm) 

where  RADC  =  radius  of  curvature  of  mirror  (cm) 

<b  =  beam  -  mirror  (astigmatic)  angle 

aSt 

=  PHIAST 
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18 .  SUBROUTINE  MIX 

a.  Purpose  --  MIX  calculates  relaxation  and  pumping  rates  for  use  by 
subroutine  KINET.  The  time  constants  which  describe  the  various  collisional 
processes  are  generated  from  quadratic  fits  to  published  data  over  a  finite 
temperature  range.  The  relaxation  rates  are  then  calculated  from  the  time 
constants'  and  the  cavity  gas  mixture  ratio.  This  routine  does  not  require 
an  argument  list. 

Relevant  Variables 

TC2C  time  constant  for  C02  (OVO)  +  C02  •»  C02  +  C02 

TC2N  time  constant  for  C02  (OVO)  ♦  C02  -  C02  +  M2 

TC20  time  constant  for  C02  (OVO)  ♦  02  -*•  C02  +  02 

TC2W  time  constant  for  C02  (OVO)  +  H20  -*•  C02  +  H20 

TC3C  time  constant  for  C02  (OVO)  +  C02  *  C02  (OVO)  *  C02 

TC3N  time  constant  for  C02  (00V)  +  M2  -  C02  (OVO)  +  M2 

TC3W  time  constant  for  C02  (OOV)  ♦  H20  C02  (OVO)  +  H20 

TPMP  time  constant  for  M2  (V=l)  +  C02  -*■  M2  +  C02(001) 

TTRD  T_1/3 

TTRD2  T*2/j 

RC2  relaxation  rate  for  C02  (OVO)  *  C02  (000) 

RC3  relaxation  rate  for  C02  (OOV)  C02  (OVO) 

RN2  nitrogen  mispump  rate  (pumps  C02  bending  mode) 

RPUMP  pumping  rate  for  upper  level  excitation 

b.  Relevant  formalism  --  The  C02  V-V  and  V-T  relaxation  rates,  the 
pumping  rate  and  the  nitrogen  mispump  rate  are  computed  by 


where 


Ps  is  the  static  pressure, 


Xi  are  the  appropriate  species  mole  fractions, 
and  ti  are  their  associated  time  constants. 


The  time  constants,  t^,  associated  with  the  various  collisional  processes 
are  computed  by  an  exponential  quadratic  fit  to  published  data.  The  general 
form  is: 


t.  *  exp  (a.T 
i  r  i  s 


♦  b.T 
1  s 


ci) 


(144) 


Commons  Modified 
/RATE/ 

Variables  modified: 


RC2 

at 

MIX. 

23 

RC3 

at 

MIX. 

29 

RN2 

at 

MIX. 

30 

RPUMP 

at 

MIX. 

31 

Commons  Modified: 

/MELT/ 

Arrays  Modified: 

CU  incoming  5-  outgoing  field.  Field  is  modified. 
CFIL  field  to  which  CU  is  made  orthogonal 

Figure  42  is  the  subroutine  MIX  flow  chart. 


non  o  no 


CALLED  FROM  K1NET 


Figure  42.  Subroutine  MIX  flow  chart. 


The  subroutine  MIX  comDuter  printout  follows. 


SUBROUTINE  MIX  76/176  0PT=1  FIN  4.6+452  04/27/79  12. 

SUtHOuUNt  MIX  Mix 

THIS  H0UIIN6  CALCULATES  TMt  CU2  V-y  AMO  V-T  HtLAXATIUN  F  OH  uSt  HJx 

IN  SoenOUTINt  MNET  Mix 

COHHON/PMOPT/TS<PS«  V  tHHU<Hr>ONfCP<<iAHMA»HttitXLAHtt«HNU<CPMM  MIX 

CUHHUN/HOLES/ XN2 • XCU2  »  XHdU • XCU  < XU2  Mix 

CUMMON/HATE/HN2<HCjfHC2tHHuHH«  HSIlH  MU 

TTHU  ■  HlX 

TTM02  ■  TTHU«*2  HIX 

C02  (  00V)  *N2"  CU2<0V0<<N2  HU 

TC3N  a  EAP<-393.l2«TTW02<i*?.09aTT<«U-lO.  T20>  HU 

CU2<UOV<<02  a  CU2 <  UVO)  *02  HU 

TC30  a  TC3N  HU 

C02 < ooy < *CQ2  «  CU2(uvu><Cu2  nix 

TC3C  «  exP<-SS3.9S*TTH02<2UU.39a<THU-lS.«91<  Hlx 

C  CU2<00V)  *H2U  a  CU2<0V0<<M2U  Hlx 

TC3U  ■  CAM  ( •  ISU9S*  T TH02<  •  jSl  J9*T  ( HU* 2 •  f  323)  HU 

C  CU2<0V0<<N2  a  C02«N2  Hlx 

TC2N  a  EXP ( ”29A»5l*T TH02* 1 19.BB*T  THU”0 •6P9d>  Hlx 

C  C02<0V<H<CU2  ■  CU2+C02  HU 

TC2C  a  EXP  ( -295, 96*  TTHU2« 120  «32*  T  TfiU“9. 32051  HU 

C  C02IUVO) »H20  a  CU2+H2U  Hlx 

TC2*  a  EXP<3l9.2*,rTHU2-i32.«*aT?HU»6.90»2;  Hlx 

C  C02<W0<<02  a  C02*02  HU 

TC20  ■  C^P  <  *l95*29aT  TH02  <00  •  340*  T  THU-S  •  36+6)  HU 
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N2<Val)«C02  a  N2*C<J2 (001) 

Ml* 

26 

Mi* 

27 

f»C2«  MS*  t XN2/ TC2N* *C02/ T  C21.  ♦  **20/  t  C2a ♦ X02/ T  C20 » • 1 . £6 

Ml* 

28 

HC3«  MS* UN2/ TC3N»*C02/  7C3C «AM20/  tC3a»*Q2/ TC 3NI  •  l  ,£(» 

Mi* 

2V 

HN2  a  MS*XC02/TC3N*l.£b 

Ml* 

30 

RMUMM  a  MS»  < AN2**CU2)  /  fMMM*  i  .  tt> 

Mi* 

31 

RETUHN 

Mi* 

32 

£NO 

Ml* 

33 

19.  SUBROUTINE  MODER: 

a.  Purpose  —  Subroutine  MODER  is  designed  to  orthogonalize  one 
complex  field  with  respect  to  another,  and  to  excite  a  higher  order  mode  for 
bare  resonator  mode  studies.  The  fundamental  relationships  are  from  the 
Siegman-Miller  paper  (Ref.  131.  Figures  43,  44,  and  45  are  flow  charts  for 
the  Subroutine  MODER  Organization. 


SCONTRL  I F LOW  =  23 1 
$  ORTHG,  MODE  »  L  i 


Figure  43.  Subroutine  MODER  organization. 


13.  Siegman,  A.  E.  and  H.  Y.  Miller,  "Unstable  Optical  Resonator  Loss  Cal¬ 
culations  Using  the  Prony  Method,"  Applied  Optics,  9,  p.  2729,  1970. 
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LOAD  FIELO  TO 
BE  OATHOGONALIZSD 
WITH  AGAINST 


ASAD  1501 
CFIL 


WOOER. 27 

WOOER. 29 


CALCULATE  POWER 

IN  CURRENT 

ou  field 

POLD  * 

22|cu|J  x3 

_ 1 

CALCULATE  PRODUCT 

OF  cu  WITH  CFIL 

CT  = 

22cu*cfil(l-x)2 

! 

_ 1 

CALCULATE 

PRODUCT  OF  CFIL 

WITH  CFIL  i. 

CFT  =■ 

22CFIL  CFIL(^X)2 

WOOER  .48 
WOOER. 50 


ORTHQG.33 


ORTHOG  .34 


ORTHOGONALIZE 

cu 


CHECK 

ORTHOGONALITY 


ADJUST 

POWER 


cu  * 

cu- 

1  CT 
'CFTI 

CFIL 

cc  * 

22cu'cfil(l.xi2 

m 

1 

C 


RETURN 


WOOER. 62 


ORTHOG  .37 


MODE  R. 63- 
ORTHOa  .36 


Figure  44.  Perform  orthogonalization 
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MODE  EXCITATION 
EXCITE  Lth 
MODE 


© 


CU  - 

CU*EXP{iLltan11y/x)| 


^  RETURN 


MODER  .15 
MODER  .26 


Figure  4S .  Mode  excitation. 


b.  Relevant  formalism  --  The  orthogonality  condition  satisifed  for 
symmetric  kernel  calculations  is 


If- 


f(x,y)gCx,y)  dxdy  =  0 


(1451 


where 

R  »  calculation  region  of  interest 

f,g  *  two  arbitrary  complex  fields,  described  here  at  equispaced  discrete 
points. 

The  procedure  is  implemented  by  a  Gramm-Schmidt  orthogonal i rat ion,  to  create 
a  new  field,  h(x,y)  from  two  known  fields.  Assume 

h (  x , y )  =  f ( x , y )  +  cgix.y)  (146) 
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where, 


c  =  complex  constant 

g  =  field  with  which  orthogonalization  takes  place. 


(147) 


N'umerically  this  becomes, 


Additionally,  impose  the  condition  that 


(148) 


(149) 


then  h. .  is  the  new  field  which  is  orthogonal  with  respect  to  g. . 
ij  '  siJ 

the  same  power  as  the  initial  field  f. 


and  has 


Additionally,  MODER  is  structured  to  excite  the  azimuthally-varying  phase 
factor  for  the  generation  of  higher  order  modes.  In  cylindrical  coordinates, 
the  modes  of  a  bare  resonator  may  be  written  as: 


U  (r, 9) 


ne 


®ne  (r/al£ 


-j!9 


(ISO) 


where, 


o<<  0  <  2ir 
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an  arbitrary  (convex  mirror)  scaling  factor 

1  *  *1,  ±2,  .  .  . 


n  ■  0,  1,  2 . 

Higher  order  modes  in  bare  resonators  are  initially  excited  as 
f'Cx.y)  •  [e-'1  ta" 
and  in  discrete  form  as 

*  exp  £-jl  tan' 

where  f. .  is  the  SOQ  comolex  field  distribution, 
n  x 

c.  Fortran 
Argument  List : 

N  Integer  variable  denoting  the  calculation  path  within  the 
subroutine 

N<0  excite  the  mode  and  return 
N>0  Perform  Orthogonal ization 
L  Order  of  Mode  to  be  excited 
L  =  1,2 . 

Computer  printouts  of  the  MODER  subroutine  follow. 


(.y/xj 


]  fCx.y)  ;  ^<1 

■J  a  ** 


Cy 


l'V]  f 


(151) 


SUBROUTINE  MODER 
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C 

c 

c 

c 

c 

c 

c 


SJaMUOUNC  MUUEMIL.H.M) 

MOUC  OiSLMlMlNAUOH  MOOT  INC 

this  muu;imi  tAiTts  me  e-rn  «uoe  is  *  artMArioN  nomochi  is  a 
ANU  SUHKHtSSbS  LOkCM  A^lMUtHnC  Moots  IM  SUCCESS IVt  IlfcHAUONS 

•*•••  THIS  COPY  OCSlOMtO  TO  iUMMMeSS  L  *  0  UMLY  MOO  11-20-tS  •••• 

*****  friis  copy  ocsioncu  to  e.Av.1  re  u»isi  Moot  moo  li-it-ts  ••• 
LEVEL  2,  CU 

COMMON/ MtLt/LU  (  1 6J8* )  •CtlLllS912),Alt2a>  »ML,i'tPT5*NHY  »OMA  «  OMY 

COMMON/MAY/»NO*,.NMtO*MAI»rM 

COMPueA  CO,Cf iL.CT.CEt.CC 

MI«3. 1*1592654 

IF(M.t»T.O)  OO  TO  luO 

LH«L«l 

00  10  1«1,.VMIS 
XA*X < 1) 

OO  lu  J«l,NPY 

iAj«(j-n 

YY«A(0) 

t»SPtAN(AA,TT)  •  LM 


MOOCH 

2 

MOOtM 

3 

MOOCH 

A 

MOOCH 

5 

MOOCH 

6 

MOOCH 

T 

MOOCH 

8 

MOOCH 

9 

MOOCH 

10 

MOOCH 

11 

MOOCH 

12 

MOOCH 

13 

MOOCH 

l* 

MOOCH 

15 

MOOCH 

16 

MOOCH 

It 

MOOCH 

IS 

MOOCH 

19 

MOOCH 

20 

MOOCH 

21 

MOOCH 

22 

179 


o  n  n 


10  cut uji «cu( uji •ceah<cmpi.a to.o.n )  mooch 

•Ml rg (6,600)  LP  MOOCH 

600  FUkMAT(/.10H  •••  L  a  .  Il.dbri  MODE  MAS  UfctN  EXCITED  •••«/)  MODEM 

HCTUHN  MOOCH 

100  CONTINUE  mooch 

RCAO  (  bo  )  (CFIUI)  .l«l«dl02)  MOOCH 

HCalNO  30  MOOCH 

OO  80  I*l.NPTS  MOOCH 

00  80  jal.6*  MOOCH 

IXua(J-l)*NPTS*l  MOOCH 

IXJ2*U2b-J)*NPTS.l  MOOCH 

00  CF IL t IXJ2) *CF IL ( 1 XU)  MOOCH 

NOb*NPTS#NPY  MOOCH 

P»0.0  MOOCH 

P2«0.0  MOOCH 

C 1 aCMHLX ( Q  .  0  «  0  <  0  >  MOOCH 

CFTaCMHUX tO. 0.0.0)  MOOCH 

0XaAHS(X(l)»A<2) )  MOOCH 

OOOa<OX*aNOM)**2*(NHTS/NHY)  MOOCH 

C  ■HITttO.  66*1000.  H.CC.CT.AA.P.H2.iFLA(»»iFLA82  MOOCH 

00  20  lal.NHTS  MOOCH 

00  20  3*1<NPY  MOOCH 

IXja ( j« 1 ) *NPTS* I  MOOCH 

CTaCT*CONJu(CU(lXJ) ) *CF 1C  1 1XJ)  MOOCH 

CFTaCF T.CONJOtCF IL ( IXJ) ) *C>> IL 1 1X0)  MOOCH 

20  H«t».CU(IXJ)*C0NJO«CU(IXJ)  )  MOOCH 

p«H*000  MOOCH 

CCaCT  *000  MOOCH 

•Hire (6.604)  cc  mooch 

60*  FOKMAT </.l*H  •••  CC  a,201S.3.6N  ••••/>  MOOCH 

C  OH  I T£ (6.066) UOO.H.CC .C  T .AA.H.H2. 1FLA0  * 1 KLA02  MOOCH 

C  r  aCT/CF )  MOOCH 

CCaCT  MOOCH 

*H 1  T£  ( 6.60* )  CC  MOOCH 

CC*CFT«OUU  MOOCH 

•HI Tt (6.60*)  CC  MOOCH 

OU  30  l*l.N*»T8  MOOCH 

00  Jo  jal.NPY  MUOtH 

Ia’j*<J-1>»NMTS«I  MOOCH 

CO  (  I X  J )  *C0  t  I A  J )  -C I  *CF  l L ( I Ag )  MOOCH 

2V  P2*P2*CU ( lAJ) aCONJU (CO ( 1  AO) )  MOOCH 

30  CONTI HOC  MOOCH 

H2«H2*OUO  MOOCH 

•HITC  (6.666)  U0U.H.CC.CT.AA.M.M2»lFLAt».lFLAt>2  MOOCH 

»M I TC (6.606)  H.H2.H  mooch 

606  F0HMAT(/.1*H  P.P2.H  a.  JU1 3. 3 .6*  •••./)  MOOCH 

•>PP*SUHT  (P/H2)  MOOCH 

AAal.u  MOOCH 

C  AAaSoHT(P/(P-CABS(Cnaa2aHiaH*H)  )  MOOCH 

HH1TC(6.607)  AA.SPP  MOOCH 

607  FOHMAf  (/.  1*M  •••  »A,SPP  *.2015.3.6*  •••♦/>  MOOCH 

00  *0  1*1. NOb  MOOCH 

*0  CO ( 1 ) *C0 ( I ) #3PP  MOOCH 

C  MM 1 TC (6.666) OO0.H.CC .CT .AA.P.P2. 1FLA6. IFLA62  MOOCH 

C  666  FONMAMOM  001). H  *.2015.3./ .OH  CC *C T*,*813.5./ .23*  P.P2.1FLA0.  MOOCH 

C  XIFLA02  a  .3018.3.2110)  MOOCH 

hCTUHN  MOOCH 

CNO  MOOCH 


20.  SUBROUTINE  OUTPUT 

a.  Purpose  --  This  routine  generates  three  intensity  amplitude  and 
phase  printer  slice  plots  through  the  field.  They  are  along  the  x-axis,  the 
y-axis,  and  the  "diagonal,"  defined  by  the  diagram  in  Figure  46.  Figure  47 
shows  the  flow  chart  for  this  subroutine. 


Figure  46.  Intensity  amplitude 
slice  plots. 


and  phase  printer 


LROP1.108--LROP1.136 


LROP1.137— LROP1.157 


LROP1.158-LROP1.187 


LROP1.211-LROP1.251 


Figure  4"T.  Subroutine  OUTPUT  flow  chart. 


b.  Relevant  formalism  —  The  slice  plot  uses  100  available  spaces  per 
line  for  plot  information.  The  point  printed  shows  the  percent  of  maximum 
amplitude  or  intensity  e.g.,  if  the  intensity  or  amplitude  is  35  percent  of 
the  maximum,  a  symbol  is  printed  in  the  3Sth  column.  Similarly  the  phase  is 
plotted  from  -180  to  ISO  degrees  with  zero-phase  at  the  center.  The  corre¬ 
sponding  maximum  intensity  amplitude  is  also  printed  out  with  the  appropriate 
spatial  coordinates. 

c.  Fortran 

Argument  List 

field  to  be  plotted 
number  of  points  in  the  y-direction 
number  of  points  in  the  x-direction 

coordinate  array 
number  of  plots  (1  to  3) 

(N)  ■  1  -*•  x  only 

2  x  and  diagonal 

3  x,  diagonal,  and  y 

0,  the  constant  J  orders  used  is  NP  2/2  instead  of  NP1/2.  This  param- 
used  when  gain/phase  slice  plots  are  made. 

4AX  -  maximum  intensity  amplitude  of  the  field.  It  is  used  to 
establish  the  field  point  to  be  plotted  at  100  percent. 

X-AXIS  _  if  true,  the  x  axis  plot  is  generated 

0IAG  -  if  true,  the  "diagonal"  plot  is  generated 

Y-AXIS  -  if  true  the  y  axis  plot  is  generated. 

No  common  variables  are  modified. 

No  other  subroutines  are  called  from  this  one. 

Computer  printouts  for  the  OUTPUT  subroutine  follow. 


CU 

NP2 

NP1 

x 

N 


if  N  < 
eter  is 


U1 


182 


conn 


SUBROUTINE  OUTPOR 
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Subhou  n  Nfe  ou  tpun  i  co • np2 . np  t . a ,  uma a  « ot  o  t  *  oto* .  oto J t 

ou r  pun 

2 

c 

nP1*npts«  np2*npy 

OU 1  PUN 

J 

c 

this  routine  constructs  printer  plois  of  naoial  profiles 

our pun 

4 

c 

at  THMte  Euually  spaced  Anui.es  ahouno  T He  BEAM 

our pun 

s 

c 

OUT PUN 

6 

Lev£e  £•  Cu.np2»npi.a 

our pun 

7 

COMMON  /•AY/  UMOu.NNEG.NAPIH 

our pun 

6 

DIMENSION  HAOEUOOt  J>  .CUdi  .All) 

our pun 

V 

complex  cu 

ou i pun 

10 

LOU  I  CAL  DEO  1.0EG2.  UtGJ 

our pun 

11 

c 

PUT 

IN  PLOTTING  SYMBOLS 

our pun 

12 

DATA  Point/ 1M*/.00T/1HI/ .BLANK/ In  /.APOlNf/ln*/ 

OUT PUN 

13 

XNP2  a  W2 

our  pun 

1* 

TOTAL  ■  Jbtt.  •  ANP2  /  KLOAIINHI) 

OUiPUN 

lb 

INOA2  *  NP2/J 

our pun 

16 

INUXJ  a  12  •  N¥£l  /  J 

OUTPUH 

17 

TH£T1  a  IUTAL  /  i.  /  ANP2 

ouTpun 

IB 

THE  T2  a  fHCTl  «  FLOAT ( INOA2)  •  TOTAL  /  ANF»2 

OUTPUN 

19 

THtTJ  a  fneil  •  FLOAT (INOXJ)  *  TOTAL  /  ANP2 

OUIPUN 

20 

too 

NP*  HP  1/2 

ouTpun 

21 

00  1U00  Kal.J 

OUTPUN 

22 

GO  TO  ( 10.20.30) .K 

OUTPUN 

23 

to 

IF  (.NOT.OEG1)  00  TO  1000 

out PUR 

2* 

INOex  a  u 

OUTPUN 

2  5 

theta  a  men 

OUTPUN 

26 

00  TO  1 

OUTPUN 

27 

20 

IF  (.NOT.OE02)  00  TO  1000 

OUT PUN 

28 

INoex  a  1N0X2  •  NP1 

Out PUN 

29 

THETA  a  ) HE T 2 

OUTPUN 

30 

00  To  1 

OUTPUN 

Jl 

JO 

IF  l.nor.oeoj)  00  TO  1000 

OUTPUH 

32 

InoeA  a  INOX  J  •  NP1 

OUTPUN 

33 

THETA  a  )HETJ 

OUT PUR 

J* 

l 

00  *10  I  a  1.NP1 

OUTPUN 

JS 

lMtF  a  1  •  INDEX 

OUTPUN 

36 

PAGEd.lt  a  CABS(CUUHEF)  1 

OUTPUN 

37 

0UM1  a  AIMAG(CUHHEF)  I 

OUTPUH 

J8 

l)UM2  a  HEAL  ICU  l  1HEF)  ) 

OUTPUN 

39 

IF  (OUMl.EO.ll.O.ANO.OUM2.eu.O.O>  00  TO  *12 

OUTPUH 

*0 

♦  It 

PA0EII.2)  »  S7.J*ATAN2(0UM1,00M2) 

OUTPUN 

*1 

00  TO  *10 

our PUN 

*2 

*1* 

PAGEH.2)  a  0.0 

OUIPUN 

*3 

•  to 

UMAX  a  AMAX1 (UMAX .PAGE (1.1)1 

OUTPUN 

44 

UNITE  (6.S20)  ThETA 

OUIPUN 

*5 

b20 

FOHMAT  (3JH1  CUI1.JI  PLOITEU  W  AO  I  ALLY  AT  .F7.2.9M 

Ot GHEES  ) 

Out PUN 

*6 

IF  (K.NE.ll  00  TO  1001 

OUTPUN 

*7 

UMAXPaUMAA 

OUIPUN 

*8 

IF (NNEG.Ne.O.ANO.N.OT.OlgMAAPauMAA/HNOU 

OUTPUN 

*9 

1U01 

IF  (OMAX.EU.0.0)  UMAX  a  1.0 

our PUR 

SO 

SCALE 1  ■  100.0/UMAA 

OUTRUN 

SI 

SCALE2  •  SO. 0/1 BO. 0 

OUTPUH 

S2 

c 

PRINT  AXES 

OUt  PUN 

S3 

UNITE  (6.A60TUMAAP 

UUtPUN 

S* 

46U 

FONMAT  (IN  .T2.1H0.T27. 2h2S. 1 S2.2MS0 . 1  SB. 1 JHMAGNl TOOL  (ai.T77.2MTS 

OUt PUN 

SS 

••tioi.shioo  a.Gi2.*» 

OUTRUN 

bb 

UNITE  <6.*S0I 

OUTRUN 

b7 

4bu 
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21 .  SUBROUTINE  PLTOT 

Subroutine  PLTOT  is  called  at  the  end  of  subroutine  QUAL  to  calculate 
and  generate  a  printer  plot  of  far  field  power  versus  radial  distance  in 
RX/D  units.  The  integrated  fractional  power  to  several  far  field  radii  are 
calculated  by  multiple  calls  to  subroutine  POWWOW.  The  power  and  radius 
values  are  stored  by  PLTOT  in  array  form.  The  arrays  are  then  tabulated. 

A  simple  printer  plot  is  also  generated  without  the  necessity  of  an  inter¬ 
polation  scheme  or  other  formal  calculations. 

Figure  48  is  the  Subroutine  PLTOT  flow  chart  and  is  followed  by  the  PLTOT 
computer  printouts. 

Argument  List 

DB 
DX 

IMAX 
IPLT 
PT 

RMAX 
TITLE 
WL 

XCEN 
XX 

YCEN 

:max 


near  field  beam  diameter 

grid  spacing  in  far  field,  RX/D  units 

number  of  field  points  across  grid 

flag  -  not  used 

total  near  field  power 

not  used 

run  identification 
wavelength 

X-position  of  center  of  interest 
X-position  array 

Y-position  of  center  of  interest 
far  field  intensity  array 
not  used 
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CALLED  FROM  QUAL 


(  PLTOT  ) 


FOR  SEVERAL 
FAR  FIELD  RADII, 


FIND  POWER 
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DEFINE  FRACTIONAL 
POWER 


TABULATE  POWER 
VS 

FAR  FIELD  RADIUS 


PRINTER  PLOT  OF 
TABULATION 


. — 

DO 

■ 

23 

1-1,30 

CALL 

POWWOW 

PW 
=  PW4 

4(1) 

>(I)/PT 

— 

0 


APR26.27 


APR26.28 


APR26.29 


APR26.  30  - 
PLTOT.  78 


APR26.  34 


Figure  48.  Subroutine  PLTOT  flow  chart. 


Relevant  variables 

IPAGE  Hollerith  character  string  comprising  a  single  vertical 
position  of  printer  plots 

PWA  fractional  power  array  corresponding  to  RRD 

RRD  radial  distance  array  corresponding  to  various  far  field 

bucket  sices. 
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SUMROUT  INE  PlTOT  (  1MAA.  UA.  AA  •  IMA  A «  RMAX.  i,  IPLT.  TITLE. 

PLTOT 

2 

1  PT  .  xCEn  .  YCEN  •  lilt  l  A.  1 

APM26 

21 

LEVEL  2.  «L 

APR26 

22 

c 

This  ROUTINE  in  MARES  AN  ISO-INTENSITY  PLOT  OF  THE  TAH  HELD 

PLTOT 

4 

c 

SHUT  ANO  I2>  CALCULATES  ANO  PLOTS  Mt  POvCR  VERSUS  FAN  FIELD 

PLIOT 

5 

c 

RAUlUS. 

PLTOT 

<y 

LEVEL  2.  IMAA.AA.Z 

PLTOT 

7 

DIMENSION  a A  1 1} •  Z<  1  1  .  TITLE  1201 

PLTOT 

a 

DIMENSION  PMA13U).  MVUIJg)  .IPAOEllUi) 

APM26 

23 

0  A  T  A  MHO / • 

APR26 

24 

APR26 

25 

DATA  IBLUR/-H  /.II/lMl/.lPT/lrt./ 

APR26 

26 

c 

DIMENSION  lAB (S) 

PLTOT 

10 

c 

DATA  NOZ.LAB  /  6«80«B0*4g.2O«10«5.2»1.12*0  / 

PLiOT 

11 

c 

CALL  DA  TE IMNTM.OAY  9  TEAM  > 

PLTOT 

12 

c 

CALL  mCLOCR 1mR.MIN.SEC) 

PLTOT 

13 

c 

(iO  TO  132.SH  .  IPLT 

PLTOT 

14 

c 

PLOT  PAR  FIELD  1SO-1NTENS1 1 1ES 

PLTOT 

15 

c 

ASCL»J./MMAA 

PLTOT 

16 

c 

CALL  INI T <2SIZE«.8..1U.) 

PLfOT 

17 

c 

CALL  PLOT (3.S.J.S.23I 

PLIOT 

18 

c 

CALL  IAS121.2t.13) 

PLTOT 

19 

c 

PLTOT 

20 

c 

•MITE198.1) 

PLTOT 

21 

c 

1 

FORMAT 130H  FAR  FIELO  ISO-INTENSITY  CONTOURS  ) 

PLfOT 

22 

c 

CALL  TAS121.12..0B) 

PLIOT 

23 

c 

CALL  T  APL  T (0..4.5.0..0) 

PLTOT 

24 

c 

•RITE 198.2)  T ITlE.RMAA.MnIm.UAY.YEAM.MM.MIN.SEC 

PLfOT 

25 

c 

2 

FORMAT ( 1A.20A4//29H  TM£  LAMOEST  NAOloS  PLOTTED  ».FA.l .9MM-LAMB/0  / 

PLfOT 

26 

c 

1/SmOATE  .A2.1H/.A2.1N/.A2. IQA.SMTIME  . A2. 1H. . A2 t IM. • A2) 

PLfOT 

27 

c 

CALL  SYMBOL10..U...I5.3.U..-D 

PLTOT 

28 

c 

DO  190  I»l.4 

PLfOT 

29 

c 

ADP«.0A»1 

PLTOT 

30 

c 

AUP».U3»l 

PLfOT 

31 

c 

CALL  OASH(AOP.AUP) 

PLTOT 

32 

c 

RH»flMAA»l/A  *XSCL 

PLfOT 

33 

c 

190 

CALL  CIMCICHAO«.MM.(CENC.U..O.) 

PLfOT 

34 

c 

CALL  NOASH 

PLfOT 

35 

c 

CALL  1SU1  AA.AX.2.2MAA.0. . 1MAA. 1MAX .XCEN. YCEN. ASCL  *NU2 .LAB. I MAX) 

PLTOf 

36 

c 

CALL  FI HI 

PLfOT 

37 

c 

IF  (lPLT.EU.J)  SO  TO  SI 

PLTOT 

38 

c 

PLOT  PORER  VS.  R«LaMB0A/0.  THIS  IS  DONE  ABOUT  EITHER  THE  CENTROID 

PLTOT 

39 

c 

OR  PEAR  INTENSITY  .HlCMEVER  DEMUNSTMAIES  MAXIMUM  PERFORMANCE. 

PLfOT 

40 

c 

•12 

CALL  INI! (<SIZEC.8..10.) 

PLfOT 

41 

c 

CALL  PLOi  U. 5.1. .23) 

PLfOT 

42 

c 

CALL  AAIS1U..0..1 IHRAUlUS— RL/U.— 1 1.4..O..0. .RMAA/A. ) 

PLfOf 

43 

c 

CALL  AAIS10..0..1 3HPERCE'. T  PU«ER»  13. S.. 90 .<0.. 20.) 

PLTOf 

44 

c 

CALL  UHIUT0..0..4..16.5..2V) 

PLTOT 

45 

c 

CALL  TASI2I.1S..09) 

PLfOT 

46 

c 

CALL  T  APLT (2..8..0..0) 

PLfOT 

47 

c 

•RITEI98.SU)  T ITLE.MNTm.DAT. YEAR .MR. MIN. SEC 

PLTOT 

48 

c 

*0 

FORMAT (28H  FAR  FIELD  DUALITY  (FFT)  //20A4//5MDA TE  . A2. 1H/.A2. 1H 

PLfOT 

49 

c 

1/.A2.  IOX.ShI  1ME  .A2.211H.iit2)  1 

PLfOT 

50 

c 

CALL  MOvEA 1 U • . U. ) 

PLTOT 

51 

5  1 

IRA0«RMAA*2. 

PLfOT 

52 

c 

PRINT  po*er  vs.  R«LAMB0A/U 

PLfOT 

53 

»R  l  TE  16.22)  TITLE 

PLfOT 

54 
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FOpHAI  (///.1X.2UA4.///.3A.3I2A.  1  *HM  •  »P (FPACT ION)  )  ./) 

PLTOT 

** 

00  23  lal.lHAU 

PL  TOT 

Sb 

DU  2*  3*1.* 

PLIOT 

*  T 

PP0(3>  ■.!•( I  1-1) 
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22.  SUBROUTINE  POWWOW 
Calls:  N/A. 

Called  by:  QUAL 

a.  Purpose  --  POWWOW  is  called  by  QUAL  to  apply  an  aperture  to  the  far 
field  intensity  field  for  computing  power  in  the  bucket.  Figure  49  shows  the 
POWWOW  flow  chart,  followed  by  the  POWWOW  computer  printouts. 

POWWOW  passes  the  intensity  field,  x  and  y  centroid  locations,  and 
bucket  size.  It  returns  the  power  in  the  bucket  in  parameter  PRB  (PWR) . 
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POWOW  defines  a  radius  function,  RD,  for  converting  rectangular 
coordinates  to  a  radius  bucket  size.  Each  x,y  coordinate  is  searched 
to  determine  if  it  is  within  the  bucket.  If  so,  the  power  at  that  point 
is  added  to  the  sum  for  the  bucket. 

After  all  locations  have  been  checked,  control  is  returned  to  QUAL  along 
with  the  power  number. 

b.  Relevant  formalism  --  Each  grid  point  (X,Y)  lies  at  the  center  of  a 
square  AX  on  a  side.  In  the  logic  to  determine  whether  a  point  falls  within 
the  radius  of  interest,  an  attempt  is  made  to  account  for  gTids  which  fall 
partially  within  the  radius,  RAD.  These  points  are  weighted  between  0  and  1 
according  to 


P  =  (RAD-R  .  ) / (R  -R  .  ) 
min  max  mm 


where 


P  is  the  weighting  factor, 

R  is  the  radius  to  the  furthest  corner  of  the  grid,  and 

lUaX 

R  .  is  the  radius  to  the  nearest  corner  of  the  grid, 
nun 


All  grid  points  with  R  less  than  RAD  are  given  a  weight  of  1,  all 

IilclX 

grid  points  with  R^n  greater  than  RAD  are  weighted  0. 

Argument  List 


AA 

DX 

NPTS 

PWR 

RAD 

XAR 

XCEN 

YCEN 


far  field  intensity  array 

separation  of  far  field  points 

number  of  array  points  in  one  dimension 

power  in  the  bucket  -  returned  to  calling  routine 

radius  of  far  field  bucket 

X-position  array  for  intensity  field 

X-position  of  center  of  interest 

Y-position  of  center  of  interest 


Relevant  Variables 


DS  area  associated  with  a  grid  point 

PER  weighting  factor  for  a  grid  point,  between  0  and  DS 

X  X-position  of  grid  point 

Y  Y-position  of  grid  point 
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POWWOW.  8 


POWWOW.  13  — — 
POWWOW.  28 


SEARCH  THROUGH 
INTENSITY  POWWOW.  23 

ARRAY,  AA 


POWWOW.  27 


Figure  49.  Subroutine  POWWOW  flow  chart. 
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23.  SUBROUTINE  QUAL 

Called  by:  MAIN 

Calls:  TILT 

STEP 
CENBAR 
POWWOW 

QUAL,  entered  with  a  call  from  MAIN,  is  used  to  calculate  quality  of 
complex  field.  Figure  SO  is  the  flow  chart  for  the  QUAL  subroutine.  Subrou¬ 
tine  QUAL  computer  printouts  follow  Figure  50.  A  decision  is  made  whether  to 
use  the  COMMON  complex  field  or  whether  to  read  one  in  from  tape.  A  decision 
is  then  made  as  to  whether  or  not  to  save  whatever  input  complex  field  is 
used.  This  is  for  later  restoration. 


Variables  are  initialized  and,  based  on  the  call  statement  input  vari¬ 
ables,  a  decision  is  made  whether  or  not  to  apply  a  phase  correction  to  the 
complex  field,  that  is,  should  tilt  and/or  spherical  components  be  removed? 
If  not,  QUAL  branches  to  the  lens  section. 


Subroutine  QUAL  flow  chart. 


If  yes,  then  a  call  is  made  to  subroutine  TILT  and  the  linear  and  quad¬ 
ratic  phase  components  are  removed.  If  spherical  components  are  to  be 
removed,  then  this  is  done.  If  not,  control  passes  to  the  lens  section. 

The  lens  strength  required  to  bring  the  beam  down  to  a  specified  radius 
is  computed.  This  is  then  applied  to  the  field,  CU,  via  the  relation 


U  =  U  exp 


y2) 


(152) 


The  total  beam  power  as  transformed  by  the  lens  is  then  calculated.  If 
there  is  no  power  in  the  transformed  beam,  an  error  message  is  output  and 
the  job  stopped.  Otherwise,  some  saving  parameters  are  initialized  and  the 
transformed  field  is  saved  on  tape. 

Subroutine  STEP  is  called  to  take  the  transformed  beam  to  the  far  field. 
The  location  of  the  far  field  peak  intensity  is  found.  Strehl  and  power  in 
the  bucket  are  calculated.  Subroutine  CENBAR  is  called  to  find  the  percent 
of  far  field  centroid  (intensity).  Subroutine  POWWOW  is  called  to  find  the 
percent  of  far  field  power  in  a  given  radius  around  the  centroid.  All  of  the 
calculated  data  is  printed  and  subroutine  PLTOT  is  called  for  beam  quality 
plots. 

QUAL  then  restores  the  complex  field  to  what  it  was  at  entry  and  con¬ 
trol  is  returned  to  MAIN. 
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aMl TE (0,39*0)  Y 

CYCLE9 

51 

b9oo 

FOHMA  1  (22h  OPTIMUM  HEbUL t b  Al  Fa, (,12. a) 

CYCLE9 

52 

aMlTElO. 132)  H8.P8K .AClNT.YClNT.Mb.PHK.UMXK, APEAK, YPEAK. PaSAYK. OB 

UUAL 

121 

132 

FOMMAT  ( //  15M  OCALC  FLUA  IN  ,Fb.2, Ort  ML/D". (,12.0.27m  About  CENTROID 

UUAL 

122 

A  CU0H01NA TEb.2G12.*// lbH  OCALC  FLUX  IN  .F3.2.6H 

HL/0« 

,si2.*,i*h  *a 

UUAL 

123 

AOUT  IMAA  OF  .G12.4.12H  CUOMO lNATtb.2012 .*// IbM 

TOTAL  1 

OCALC  FLUXa. 

UUAL 

120 

AS12.4.22H  mEFEMEnCE  0iAMtTtMa,A6.2) 

UUAL 

125 

196 


aPITE  16.133)STHE*L 

DUAL 

Uft 

133 

F0MMAII/19H  SThENL  INTENSIIY 

DUAL 

127 

5930 

COnT INUE 

CYCLE? 

53 

IF  USIEP.Lt.S)  l»0  TO  3*5 

CYCLE? 

5* 

ANSll)  «  Pxb 

UUAL 

128 

AnS<2>  ■  PW5AVE 

DUAL 

129 

ANSU)  •  OMAA 

DUAL 

130 

IF  (PHH.OT.PkHI  00  (0  S3 

00  AL 

131 

AC  IN  t  a  APEAK 

UUAL 

132 

YCINT  a  YPEAK 

DUAL 

133 

ANS  1 1 1  «  PHH 

UUAL 

13* 

c 

make  SPEClUtO  F AH  FIELD  PLOTS  AN0  CALCULATE  POatP  VS.  K*LAMbUA/0 

WUAL 

135 

53 

IF  tIPLT. .*£.*>  CALL  PLTOTI  NPtS*  OA.  A.  OMAA,  *..  OS.  IPLl. 

UOAL 

136 

A  riTLE.Pt.AClNT.TClNt.oe.aL) 

APK26 

5b 

c  ***• 

••  MEStOPt  FlELu 

UUAL 

13b 

J*s 

Continue 

CYCLE? 

55 

IF ( IS ttP.OE.o)  00  TO  350 

CYCLE? 

56 

m£AOU)  tCUUJ)  .  10*1  ,NUb)  .a.ONA.UMY 

CYCLE? 

5/ 

MEa I no  1 

CYCLE? 

58 

IF ( ISTEP.LT. 5>  00  TO  32S 

CYCLE? 

59 

POPT«-100 

CYCLE? 

60 

00  3/5  1*1 .5 

CYCLE? 

61 

IFtP(I) .LE.POPTI  SO  TO  3/5 

CYCLE? 

62 

POPTaP(l) 

CYCLE? 

63 

F  OP  t  aF  BM 1 1 ) 

CYCLE? 

64 

3/S 

con  r inoe 

CYCLE? 

65 

SO  TO  325 

CYCLE? 

66 

350 

CONTINUE 

CYCLE? 

67 

IF  (ISAYE.WE.U  m£IoPN 

UUAL 

139 

MEAOl  /)  ICUIU).  Ual.NOH)  .a.OHA.UMY 

UUAL 

1*0 

REalNU 

UUAL 

1*1 

PETUPN 

UUAL 

1*2 

200 

MHirEie.eoi) 

UOAL 

1*3 

201 

FONMAT 130M0NU  PUMEH  IN  SEAM  -  JOb  K1LLE0I 

UUAL 

1** 

STOP 

UUAL 

1*5 

Enu 

UUAL 

1*6 

24 .  SUBROUTINE  REGAIN 
Called  from:  GDL 

Calls:  BLUMIT,  CPUTIM,  FUHS,  GAINXY,  ISOCAV,  SIMPGG,  VINO 

a.  Purpose  --  REGAIN  is  primarily  a  driver  program  to  direct  the 
recalculation  of  the  cavity  gain  medium  at  the  end  of  each  iteration  as  shown 
by  Figure  SI.  Subroutine  REGAIN  computer  printouts  follow  Figure  51.  The 
routine  controls  the  type  of  kinetics  calculation  (numerical  or  analytical 
closed  form),  calculation  of  the  FUHS  effect  on  the  medium  density,  genera¬ 
tion  of  plots,  and  input/output  of  medium  data  on  disk.  Most  of  the  control 
for  this  routine  is  read  in  from  subroutine  CAVITY. 

b.  Relevant  formalism  -  The  only  formal  calculations  oerformed  in 
REGAIN  are  the  summation  of  cavity  aerodynamics  and  FUHS  effect  induced 
optical  path  variations,  and  the  averaging  of  newly  calculated  gain  distribu¬ 
tion  with  that  of  the  previous  iteration.  A  simple  linear  averaging  or 
weighting  algorithm  is  used: 


ow  chart 


G  =  (Gq  ( 1  -A)  +  GCA)  exp  |(2ir/X)  OPD) 


f  1531 


where 

Gq  is  the  amplitude  gain  field  from  the  previous  iteration, 

Gc  is  the  newly  calculated  amplitude  gain  field, 

OPD  is  the  sum  of  optical  path  differences, 

X  is  the  wavelength. 

Argument  List 

NCT  the  number  of  cavity  elements  in  the  resonator 

NIT  the  iteration  number 

Commons  Modified 

/CCG/ 

Variables  Modified 

CG  the  complex  gain  field 

Relevant  Variables 

AVGG  weighting  factor  for  averaging  new  and  old  gain  arrays  - 

defined  by  input  to  GDL 

IBASE  integer  reference  number  to  control  reading  and  writing 
power  densities,  gain,  etc.  to  and  from  disk 
IPDEN*  flag  for  plotting  power  densities 

IUSE*  flag  for  FUHS  calculation 

NGPLOT*  flag  for  plotting  gain  fields 

NGTYPE*  flag  for  controlling  type  of  kinetics  calculation 
NSA*  number  of  gain/phase  segments 

NXA*  number  of  points  in  flow  direction 

NYA*  number  of  points  across  cavity  (side-to-side) 

•Defined  by  input  to  CAVITY 
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I 


F* 


i 


I 


C 


C 

c 
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SUdHOUTINE  HtGAIN(HCT.NlT) 

This  ROUTINE  DIRECTS  (1)  rnt  RECALCULATION  OF  SAIN  A F  TEH  A 
RESONATOR  ITERATION  AND  (2)  THE  SENtKATIUN  OF  ANT  SPtCIFltl) 

PLOTS  OF  Thi  CAVITY  PAHANtltMS. 

LEVEL  it  CU.POu.G.P.Cti 
LEVEL  2. AC 

COMMON/MELT/CU ( 16384) »CF lL ( 16912) «A(128) .ML.NPTS.NPY .UMX.UMY 
COMMON  /CCti/  COU  MOO) 

COMMON  /titiGGS/  0(171001 

COMMON/C AV2/  AC  15) *YC<8) .2C 181 .NA  <81 .NY (SI ,NS<8)  .AML (8)  .YMCO)  • 

1  NGTY 15) *  NGPLIS).  10(b) t  1P0(5), 

2  SStiAIN ( 190 . 8 ) .SATIN(8> . OE  T  A ( 8  > .HHOS(S)  » 

3  VELIS) .GAM (8) .AM ACM (9) • TV1 IS) «TV2(8) • TV3 (8) « T VN2 (8) • TSCAV (5) . 

A  P8CAV18) .Pti(S) tFN2(8> .FCU218) .FH20(S) ,FC0(5) tF 02(8) • 

5  TITLE <2U) ,AVQ(8> .NSYM 
DIMENSION  POO < 16384)  .P< 16384)  «G ( 16384) 

COMPLEX  CU.CFlL.CG.CAAAY 
EQUIVALENCE  IPOOU)  (CFILU)  )  . 

A  IP(1),CU(1>> 

CALL  CPOTIM(ISRT) 

CAMAY  «  CMPLA(0..2.4J.141S92/ML> 

TPIOL  a  6.283184  /  ML 
DO  100  NCVaJ.NCT 
I8ASE  a  10*(NCV-1)»11 
NGTYPEanGTY(NCV) 

NtiPLOT  aNtoPL (NCV) 

IOSEalU(NCV) 

IPUENalPO(NCV) 

AVSGaAVG (NCv ) 

NSAaNS(NCV) 

NAAaNA (NLV) 

NYAaMY (NCV ) / (NSYM* l ) 

MU  T  aMA A#N Y  A 
NEaC  a  0 
MMM  a  0 
00  90  Lal.NSA 

IF  (  NtiPLOT.Nt.~l  )  SO  TO  18 

NtiPLUT  a  3 
I POEM  a  i 
I USE  a  0 

IF  MU(NCV) .tiE.l)  lUSEaj 
18  1PPPh1haSE«S*L 

REAO(IPPP)  <P<U)  .Ual.MOl) 

REMIHO  IPPP 

IF  (IPOEN.tiT.l)  CALL  ISOCAV (P*  NCV,  it  L  .  NEmC.N1 T <ad 
IF  ( IP0EN.EO. 1 .OR. IPUEN.bO. J)  CALL  VlNO(P.NCV.  L  .NK.2.HMM) 
ICC«I8ASE»L 

CALL  NUMERICAL  SAIN  MOUT iNt 
IF  (NQTYPE.EU. 1 )  CALL  SAINAY(P.S.NCV.O) 

CALL  M(Jt  I  I  BEAM  THERMAL  SLOOMlNti  HOUtlNE 
IF  (NOTYPE. EU.2)  CALL  8L0M1 T (P.S.NCV. ML) 

CALL  CLOSEO  F OHM  SAIN  ROUT INt 
IF  (NSTYPE.EO.O)  CALL  SlMPtitilP  tti.NCV ) 

IF  (  NOPLOT  aQE.2)  CALL  ISOCAV (S.NCV.l.  L  ,n£mC.  nit.  ML). 

IF  (NtiPLOT .£0. 1 .OH. NtiPLOT »EU. J)  CALL  VINO(O.NCV*  L  .NlT.l.MMMI 
IF  < IUSE.tiE. 1 )  CALL  FUMSIP  .POO.NCV) 

IF  ( I0SE.SC.2)  CALL  ISOCAV (POO,  NCv.  3.  L  .  N£MC.  NIT.  ML) 

IF  (NOTYPE. to. 2)  SO  TO  28 
HEAO  UdASE)  <P<12)  lilal.Mun 
MEmINO  1MASE 

Jv  IF  (IuSE.E0.-l)  SO  TO  26 

IF  ( lOSE.EU.V.OM.lOSt.EU.j)  CALL  ISOCAV (P. NCV .8.L .NEMt.Nl t . mL) 
IF  ( iOSE.EO.U)  SO  TO  28 
00  22  J  a  i.HOT 
22  P  (J)  a  p(  g  >  .  PU0(  0  ) 

IF  (  lost  .St.  J  )  CALL  ISOCAV tP.NCV. 4.  L  .NEaC.NlT.ML) 

28  IF  (AVOO.tU.V.)  SO  TO  21 
PEAOIICC)  (CS(U)  .U«l.MUI ) 

PEmIhO  ICC 


HtSAIN 

2 

HttiAlN 

J 

HttiAlN 

4 

HtSAIN 

8 

HtSAIN 

6 

C0HR2 

9 

HtSAIN 

7 

C100ENS 

32 

S0077CY 1 

189 

HtSAIN 

S 

HtSAIN 

9 

HttiAlN 

10 

HEtiAlN 

11 

HttiAlN 

12 

HEtiAlN 

13 

Cl ODENS 

33 

HEtiAlN 

18 

S0077CYI 
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C 1 ODENS 

34 

HEtiAlN 

18 

HEtiAlN 

19 

HttiAlN 

20 

HttiAlN 

21 

HEtiAlN 

22 

HttiAlN 

23 

HttiAlN 

24 

HttiAlN 

28 

HttiAlN 

26 

HttiAlN 

27 

HttiAlN 

28 

HEtiAlN 

29 

HttiAlN 

30 

HttiAlN 

31 

HttiAlN 

32 

REGAIN 

33 

HEtiAlN 

34 

REGAIN 

38 

HEtiAlN 

36 

REGAIN 

37 

HttiAlN 

38 

HttiAlN 

39 

HttiAlN 

40 

REGAIN 

41 

HEtiAlN 

42 

HttiAlN 

43 

regain 

44 

HttiAlN 

48 

REGAIN 

46 

HEtiAlN 

47 

HttiAlN 

48 

HttiAlN 

49 

HttiAlN 

80 

HttiAlN 

81 

HttiAlN 

82 

HEtiAlN 

S3 

REGAIN 

84 

HtSAIN 

85 

HttiAlN 

86 

HttiAlN 

87 

HttiAlN 

88 

HttiAlN 

89 

HttiAlN 

60 

HtSAIN 

61 

HttiAlN 

62 

HttiAlN 

63 

HttiAlN 

64 

HttiAlN 

68 

HttiAlN 

66 

HttiAlN 

67 
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non  nnnnn 


20 

OU  110  1 1 a 1 «  HU  T 

REGAIN 

68 

PHI  a  Alii)  •  THIOL 

REGAIN 

69 

110 

COUI)  a(«Ul )  *  |  l.-xvoo)  ♦CA8S1C0U1)  >  *AVMl>)  • 

CtXP(CAXAY*A(in  > 

REGAIN 

70 

110 

COIII)  *  <  0  l  1 1 )  •  l  1  «“AVGG)  *CA8S  ICO  1 1 1 )  >  *  AVOID  • 

REGAIN 

71 

*  CNALAl  COS  IAN 1 )  .  SIN1AH1)  ) 

REGAIN 

72 

GO  TO  23 

REGAIN 

73 

21 

OU  112  I I*l *MUT 

REGAIN 

74 

AMI  *  Alll)  •  THIOL 

REGAIN 

75 

112 

CGI  ID  *6(1 1  >  *CEXA  (CAKAY*A  (ID  ) 

MESA IN 

76 

112 

Call)  at})  m  *CNAla  (COS (Ann  .  SIN(Pnl)  ) 

REGAIN 

77 

23 

■MITE  ( ICC)  (CO  ( 12)  •  12*1 «muT ) 

REGAIN 

78 

90 

HEalNU  ICC 

REGAIN 

79 

loo 

continue 

regain 

80 

■MITE(6.10) 

regain 

81 

10 

FORMAT (40HQOAIN  HAS  8E£N  UHOATEQ  FUM  1  HE  NEAT 

PASS) 

regain 

82 

IF  (NOT YAE  .EG.  1)  aHITEtG.ll)' 

REGAIN 

83 

11 

FORMAT (31M  USING  NUMERICAL  M NET  ICS  MUUEL) 

HE6A1N 

8* 

IF INGTYAE  .to.  0)  AMITE (6* 12) 

REGAIN 

85 

IFINOTyAE  .EO.  2)  *MlTE<6fl9) 

REGAIN 

86 

19 

format (3*m  using  thermal  blooming  anaylysis  ) 

mEoaIn 

87 

12 

FORMA T ( 32H  USING  ANALYTICAL  KINETICS  MOOED 

REGAIN 

88 

IF1IUSE  .GT.  0)  ■MITE(6*IJ) 

REGAIN 

89 

13 

FORMAT (7VM0OENS1TV  V  AMI AT  IONS  INUUCEO  BY  LUWEH 

LASER  LEVEL  RELAAAT 

REGAIN 

90 

X ION  CALCULATED) 

REGAIN 

91 

CALL  CAUTIM(IFIN) 

REGAIN 

92 

0ELTa(ISHT-IFlN)/100. 

REGAIN 

93 

■MITE  16.45)  OELT 

REGAIN 

94 

45 

FORMAT(1MO.G12.S.49M  SECUNUS  UF  CAU  Tint  SPENT 

IN  SUBROUTINE  MEGAl 

REGAIN 

95 

XN  /  INI  ) 

REGAIN 

96 

RE  TURN 

HtGAlN 

97 

ENO 

REGAIN 

98 

SUBROUTINE  RGRD  76/176  0PT=1  FIN  4.6+452  04/27/79  12.23.47 


S<JU»Uun«e  HOMO (NMGOI  KGHO 

HOMO 

this  routine  regmios  cm  from  4  nm)s**2  array  ru  an  homo 

NHG0»<*2  ARRAY  USING  THE  SAHt  OHIO  ELEMENT  SUE  AS  THE  HGRO 

ORIGINAL  AHMAY.  HdHO 

ROMO 

LEVEL  it  CU.CFILR  HGRO 

CUMMON/MELT/CU( 16384)  <CF  IL  ( 16512)  »X(  128)  t  »L  .NRTS.NPY  .MMX  .URY  HGRO 

DIMENSION  CFILRU2768)  HGRO 

COMPLEX  CU.CFIL  HGRO 

EQUIVALENCE  (CFILd)  tCFlLH(lJ  I  ROMO 

0XaX(2)-A(l)  MONO 

NFaC  ■  NPTS/NPY  ROMO 

NVAO*<NHGO-NPTS>  /i  MSMO 

NXAO* INHGO-NPTS) /2  HOMO 

X(l)a0A4(l-NMG0)/2.  HOMO 

UO  10  I*2.NMG0  HWO 

Xd)aAd-l)*UA  HOMO 

10  CONTINUE  HOMO 

■M1TE16.1011XUI  .XINHGO)  HOMO 

ioi  fommaT(//iqa.6mx(1)  ■*au.**SA.9HX(iv«tto)  a.Gi2.4//i  homo 

Call  eemo  icfilid .CFimoja*) i  nano 

00  173  UEHO*l  *32768  ROMO 

173  CF  ILR  (  I2ERO)  >0  •  HOMO 

00  20  Jal.NPY  ROMO 

INUXaNMGO* (NY AU* J-l ) »NXAD  HOMO 

N8AS£a(J-i)4NPTS  HOMO 

00  30  lal.NPTS  HOMO 

CFiL(lNOA«I)aCU<NOASE*I)  HOMO 

30  CONTINUE  HOMO 

20  CONTINUE  HOMO 

NPTSaNRGO  HOMO 

NAY  a  NATS/NFAC  HOMO 

NSQMaNPTS*NPY  HOMO 

00  *0  IN«l*NSQH  HOMO 

CU  ( INI »CF lL 1  IN)  HOMO 

*0  CONTINUE'  RORO 

RETURN  HOMO 

ENO  HORO 


2 

3 

A 

5 

6 
7 
0 
9 

10 

11 

12 

13 

1* 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
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25.  SUBROUTINE  RGRD 


This  routine  regrids  a  complex  amplitude  field  by  adding  zeroes  to  the 
array  on  all  sides  of  the  input  field.  Figure  52  is  the  flow  chart  for  sub¬ 
routine  RGRD.  Points  added  have  the  same  separation  as  the  original  field. 
No  interpolation  or  other  formal  calculation  is  necessary.  Use  of  this 
routine  has  the  effect  of  increasing  the  guard  band  around  the  field. 

Argument  List 

NRGD  desired  number  of  grid  points  across  field 
Relevant  Variables 

DX  separation  of  grid  points  before  and  after  regridding 

INDX  counter  or  index  used  to  locate  old  grid  within  the  new  grid 

NSQR  total  numer  of  points  in  regridded  field 

Commons  Modified 

/MELT/ 

Variables  Modified 

CFIL  temporary  field  storage  array 

CU  complex  amplitude  field 

NPTS  number  of  grid  points  in  x-dimension 

NPY  number  of  grid  points  in  y-dimension 

X  x-position  array 


26.  SUBROUTINE  ROSN 

a.  Purpose  --  The  purpose  of  subroutine  ROSN  is  to  provide  an  accurate 
and  rapid  numerical  interpolation  subprogram  for  the  evaluation  of  cavity- 
induced  density  perturbations.  The  subroutine  uses  cubic  spline  processed 

A  _ 

data  representing  aerodynamical ly  parameterized  data  to  interpolate  to  the 

cavity  mesh  for  the  run  in  question  as  shown  in  the  ROSN  subroutine  flow 

chart  (Fig.  53).  Subroutine  ROSN  requires  that  the  user  specify  the  relevant 

Ao 

cubic  spline  coefficients  and— values.  The  subroutine  calculates  for 
an  arbitrary  cavity  mesh  point,  (x.y). 
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CALLED  BY  GDL 


REDEFINE  X  ARRAY 


CENTER  OLD  CU  FIELD  IN 
NEW  FIELD  OF  ZEROES 


REPLACE  CU  FIELD 
WITH  CFIL 


Figure  S2.  Subroutine  RGRD  flow 


RGRD.18 

RGRD.  19 

RGRD.  20 

RGRD.  26 

RGRD. 27  31 

RGRD.32 

RGRD.  36 

RGRD. 37 

RGRD. 38 

chart . 


s 


13 


1 


I 


b.  Relevant  formalism  --  The  SOQ  Cavity  coordinate  system  represents  a 
regular  mesh  upon  which  many  perturbations  are  applied.  High  Mach  number  flow 
produces  ordered  density  gradients  which  may  degrade  beam  phase  relation¬ 
ships.  Given  arbitrary  flow  field  interferometry  it  is  possible  to  parameter¬ 
ize  fringe  shift  (—  or  AOPD)  as  a  function  of  sidewall  parameter  s,  where  s 
is  determined  from  the  cavity  sidewall  projection  of  Mach  lines,  as  shown  in 
Figure  54. 


6  *  Mach  Angle 

Figure  54.  Fringe  shift  as  a  function  of  sidewall  parameter. 


From  interferometry  data  and  the  above  concept  of  sidewall  projected  data, 
the  following  parametric  curves  may  be  defined: 


The  curves  shown  in  Figure  55  are  fit  using  cubic  splines,  and  the  table  or 
arrays  of  *  f(s*)  and  C  *  sis*)  (spline  coeff)  are  stored  in  program 
DENSY.  Subroutine  ROSN  is  used  to  interpolate  from  (x,y)  in  the  cavity  to 
equivalent  sidewall  position  s^^t  sleft  t0  ^eterm*ne  usin8  the  above 
spline  coefficients,  an  interpolated  value  of  s  H  (x,y) 


Ao 

o 


right 


gWight^ 


K(x,y) 


(1541 
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-2-10123 

„  Sidewall  Dimension 

S*  - - 

Nozzle  Exit  Plane  Width 

Figure  55.  Parametric  curves  of  Mach  lines. 


The 


at  the  point  (x,y)  is  given,  from  supersonic  flow  theory- 


Ap  1 

_  Ap 

■f 

Ap 

K-J 

O 

Q 

PCL 

Total 

left 

°CL 

right 


A<0 


1IC  AP_ 
X  PCL 


CL 


Total 


A$  »  A0(x,y) 


=  Ap  (x,y) 
p 


The  Spline  interpolator  is: 


to  |  § 


The  interpolator  is  evaluated  for  each  of  a  right  and  left  wall  contribution 
along  the  appropriate  Mach  line. 


Commons  Modified 
None 

Commons  Included 
/LENSY/ 

Relevant  Variables 

XS  Position  in  cavity  in  cm  along  flow  direction 

XS  Position  in  cavity  in  cm  orthogonal  to  flow  direction 

XNZ  Interpolated  perturbation  to  flow  field  at  (xs,ys) 

S  Sidewall  location 

R  Interpolated  density  value 

/LENSY/ 

Y  (51,2)  <->  abcissa  y(51,l)  <->  leftwall 

y(51,2)  <->  right  wall 
Z  (51,2)  <->  ordinates;  same  convention 

C  (51,2)  <->  Spline  Coefficients;  same  convention 

TM(2)  Tangent  of  Mach  angle  -  left  and  right  sides 
XLS  Relative  position  of  nep.  read  in  subroutine  densy. 

W  cavity  width  (cm) 

XMULT  scaling  factor  usually  used  to  scale  from  %  to  absolute 
CRHO  Center  line  density  left  S  right,  may  carry  Gladstone-Dale 

constant 

M(2)  number  of  left  5  right  data  points  respectively 

TITLE  Alphanumeric  title 

LL  No.  of  sidewall  projections  i.e.,  if  left  right  symmetry  is 

assumed,  then  LL*1,  otherwise  =  2. 
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SUBROUTINE  ROSN 


76/176  OPT=l 


FIN  4.6+452 


04/27/79  12.23.47 


Subroutine  rosnias.ys.anZ) 

ROSN 

2 

CAv 1 F  T  JfcNSlfY  FltLU  IN TEhHULA T ION  ROUlINt 

ROSN 

J 

This  HOUfINt  UStS  SHLINE  CUfcFF  IClbNi  s 

TO  INTERPOLATE  TMt  CAVITY 

ROSN 

* 

OEnSITY  FIELD  (UtLTA  RHU/RMO  ANO  SRLlNt  COEFFICIENT  VtRSUS 

ROSN 

5 

5 Iu£  A ALL  HARAME  T ERS  )  ONTU  THE  CAV I F Y 

MESH. 

ROSN 

b 

COMMON/ LtNSt/Y  (51.2)  *2151*2)  *L(51*2)  t 

TM (2) • ALS (2) .a* 

ROSN 

7 

> 

i  AMUL  T  ( 2 )  *  CHMO  (2)  *  M (2)  *  TITLEI201*  LL 

ROSN 

a 

DATA  J/2/ 

ROSN 

9 

F(»)aA*A-l./J. 

ROSN 

10 

0(A) sA*(A«a«1.) 

ROSN 

11 

L  ■  l 

ROSN 

12 

AYaM(L)  -l 

ROSN 

1J 

MM  a  MIL) 

ROSN 

1A 

ITtSTaO 

ROSN 

IS 

Sa(ALS(L)/2.«*S-YS/TM(L) )/■ 

ROSN 

lb 

6 

IF (S-Y 11. L) ) JO. 7* 7 

ROSN 

17 

r 

IF(S-Y(MM,L) )3.a*J0 

ROSN 

ia 

a 

IF  ( J**KY)  20*20.9 

ROSN 

19 

9 

JaKY 

ROSN 

20 

20 

Y01»Y (J,L)-S 

ROSN 

21 

Y02*Y ( J« 1 *L) ~S 

ROSN 

22 

IF ( Y01+YU2) 5*5*22 

ROSN 

23 

22 

IF(YDl) 10.10.2J 

ROSN 

24 

10 

J«U»1 

ROSN 

25 

IF ( J-KY  >20*11*11 

ROSN 

26 

n 

janv 

ROSN 

27 

GO  TO  5 

ROSN 

28 

£3 

d«J-l 

ROSN 

29 

IF(J) 12*12.20 

ROSN 

JO 

12 

Jal 

ROSN 

Jl 

S 

JRaJ.l 

ROSN 

J2 

M«Y(JR.L)-Y(J«L) 

ROSN 

33 

ROSN 

34 

e»i.-o 

ROSN 

J5 

Rao*Z  l  JR*l)  •t,lU.L)*IRH/l,»(CIJ*LI,(ilEl*CIJF.LI,(ill)l ) 

ROSN 

J6 

RSa  ( Z  ( JH*L)  ~Z ( J.L) ) /M«M/2** (C ( JR  *b)*F(D)“C(J*L)*F(t> ) 

ROSN 

37 

GO  TO  31 

ROSN 

38 

JO 

HaO. 

ROSN 

39 

RSaO. 

ROSN 

40 

J1 

IF  (  X  TEST ) J2.J2.J3 

ROSN 

*1 

32 

ITESTal 

ROSN 

42 

RlaH 

ROSN 

•  4  J 

L  •  LL 

ROSN 

44 

MM  a  MIL) 

ROSN 

45 

RY  a  MM  -  1 

ROSN 

46 

RSlaHS 

ROSN 

47 

Sa(*LS(L)/2.«*5-(a-YS)/TM(L) )/W 

ROSN 

48 

jaMM-J 

ROSN 

49 

GO  TO  6 

ROSN 

SO 

33 

ANZaCMMOU)  •  HI  «  CHMO  (L)  •  H 

ROSN 

51 

RETURN 

ROSN 

52 

ENO 

ROSN 

53 

27.  SUBROUTINE  LINTERP 

a.  Purpose  —  This  subroutine  is  used  within  the  SOQ  code  to  linearly 
interpolate  sidewall  projected  cavity  density  information  from  sidewall 
projection  to  the  cavity  mesh.  Data  ij£.  are  stored  in  compressed  form  as 
univariate  curves  of versus  sidewall  projection  parameters  s,  from  which 
—  at  any  point  in  the  GDL  cavity  may  be  obtained  as  shown  in  Figure  56. 
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m 


m 


XRI 


Cavity 

Flow 


Figure  56.  A0/0  cavity  density  information. 


The  interpolated  value  is  calculated  to  determine  the  equivalent 
flow-induced  lens  which  is  to  be  applied  to  the  propagating  wavefront.  The 
lens  is  the  result  of  flow-induced  inhomogenieties  such  as  ordered  density 
gradients  (weak  shocks)  and  uneven  thermal  distribution. 


The  LINTERP  subprogram  (Fig.  57)  calculates  the  sidewall  parameters 


from  interpolated  cavity  position  (x,y)  and  Mach  angle.  With  "s”  determined 

can  be 

f(x,y). 


for  both  right  and  left  cavity  sidewall  projections  a  contribution 


determined  for  both  sidewalls  and  linearly  combined  to  give^-pj 


TOTAL 


>  b.  Relevant  formalism 
Left  Intercept: 

ta”0  ■  xu  *  -  me 

where 

(x,y)  *  interpolate  position 
=  Left  intercept 
tan©  =  tangent  of  Mach  angle 

sidewall  parameter  s 

„  _  XLI  (x-y/tan©) 

bL  “  W  W 


(156) 
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CALLED  FROM  DENSY 


CALCULATE  LEFT 
SIDEWALL 
PARAMETER 


FOR  INTERIOR 
POINTS 

INTERPOLATE  TO 
GET  &p  / 

P7  L 


CALCULATE  RIGHT 
SIDEWALL 
PARAMETER 


FOR  INTERIOR 
POINTS  INTERPOLATE 
TO  GET 


CALCULATE  RIGHT 
AND  LEFT  SIDEWALL 
PHASE  CHANGE 
IN  RADIANS 


C10LINT,5 

C10LINT.9 


C10LINT,21 

C10LINT.39 


C10LINT,43- 

C10LINT,44 


C10LINT.71 


Figure  57.  Subroutine  LINTERP  organization. 


qiiiuuviuv 


Right  Intercept: 


tanS 


w-y 

x-x„ 


(x  -  xD  \tan0  =  (w-y)  -  x  tan© 
1 


v  -(w-y) 

R  tan  3 


where 


S  *  — L  =  x- (w-y) /tan  Q 
R  W  W 


w  =  cavity  width 
tan  9  =  tangent  Mach  angle 
(expositive  angle) 


(157) 


(158) 


Commons  modified 
NONE 

Definition  of  relevant  variables 

TM  Tangent  of  Mach  angle 

XLS  Arbitrary  sidewall  intercept  offset  (cm) 

w  Cavity  width  (cm) 

2tt 

CRHO  Composite  constant  =  — ^  CAL  pQ 

Subroutine  LINTERP  computer  printouts  follow. 

SUBROUTINE  LINTERP  76/176  0PT=1  FIN  4.6+452  04/27/79  12.23.47 


SU0MOUTINE  UiNTtHHUS.TS«A*4> 

CIOLINT 

l 

conmun/llnsy/y  (si  t2>  t*isi.<>  »ctsi«2> . rn(2>  *als(2) 

CIOLlNt 

2 

*  MULT  12)  .CMMUI2)  »N(2>  »T1ILE(20)  «LL 

ClULINt 

3 

CIOLINT 

4 

L«l 

CIOLINT 

S 

CIOLINT 

6 

SL«<ALS<L)/2.  *  *S  -YS/TM<L)l/« 

CIOLINT 

T 

l*  tSL.Lt.t  U  tu  )  W  Til  b 

CIOLINT 

a 

If (SL*OE>Y (MM*  o  HiO  ro  S 

CIOLINT 

9 

CIOLINT 

10 

00  lu  t  »  l»MM 

CIOLINT 

11 

iF(SL»er.r(itui  so  ru  io 

CIOLINT 

12 

KL«I 

CIOLINT 

13 

«LMl«I-l 

CIOLINT 

U 

YSL»Y ( I  >L) 

CIOLINT 

IS 

YSLMl»Y< J-l.L) 

CIOLINT 

16 

SO  TO  IS 

CIOLINT 

17 

10  CONTINUE 

CIOLINT 

IS 

IS  CONTINUE 

CIOLINT 
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••••••DETERMINE  (MHO  OVR  MHOCL  ••*•••• 

ClOLlNT 

20 

ClOLINt 

21 

YUIL*YSL  -  Y5LM1 

CiOLiNT 

22 

YU2L»SL  -  YSLM1 

CIOLINT 

23 

DHHOl*  Z(ALtL)  -KALHltL) 

CIOLINT 

2A 

0RMO2*  zikuhi.u 

CIOLINT 

as 

LLL*1 

CIOLINT 

26 

IF<AS.GT.2Q.) 

CIOLINT 

27 

A  MR  I TE  <6 1 92) AL • ALMl t Y ( AL  t L) tY(ALMltC) tllKLtL) .ZlKLMl.U 

CIOLINT 

28 

92  F  0  AH  A  T  <  5  A  <  *00  10  L00R«t2l5iA(5AtElSt7)  ) 

CIOLINT 

29 

OMMOL  ■  <  Y02L  /YUlL)»ORHOl  ♦  URH02 

CIOLINT 

30 

GO  TO  20 

CIOLINT 

31 

S  DRHOL  ■  2<ltD 

CIOLINT 

32 

LLL«2 

ClQLlNt 

33 

GO  TO  20 

CIOLINT 

3A 

6  ORhOl  a  KMMtL) 

CIOLINT 

35 

LLL*3 

CIOLINT 

36 

20  CONTINUE 

ClOLINt 

37 

IF<XS.GT.20.)HRITE<6t99)LLLtSLt0HHOL 

CIOLINT 

38 

99  FORMATUUXtl5t2<5AtE15<7) t»  LLL  SL  URHOL»</> 

ClQLlNt 

39 

'♦•••  CALCULATE  SIDEWALL  PARAMETER  (RIGHT  1 •••••• 

CIOLlNt 

AO 

L«LL 

CIOLINT 

A1 

HMa  H(L) 

CIOLINT 

A2 

SHa ( ALS (L) /2 •  •  AS  - <a-YS) / TH (L) > /a 

CIOLINT 

A3 

IF  (SR  .Ll.YUtLl  IGO  TO  7 

ClOLINt 

44 

IF (SR  .GE.Y(HH.l) )GO  TO  a 

CIOLINT 

AS 

OO  AO  1*1 <  MM 

CIOLINT 

A6 

IFISH.GT.  YlItL)  )  GO  TO  AO 

CIOLInT 

A7 

AHa  I 

CIOLINT 

AS 

ARM 1  a  I  -  1 

ClOLINt 

A9 

YUHl*Y<AHtL)  -  Y(AMHl.L) 

ClOLINt 

SO 

YOH2*  Sri  -  Y(ARMltL) 

ClOLINf 

SI 

GO  TO  A5 

CIOLlNt 

S2 

AO  CONTINUE 

ClOLINt 

53 

AS  CONTINUE 

CIOLINT 

SA 

UHMORl*  2 ( AH* L)  -IlAHMltU 

ClOLINt 

55 

OR«OH2»  A(KHHl.L) 

CIOLlNt 

56 

OHHOH* ( YUR2/ YOH 1 ) *OHHOR 1  ♦  0RH0W2 

CiOLiNT 

57 

AKAa  1 

CIOLINT 

sa 

IF(XS.GT.20.1 

CIOLINT 

59 

A«RI rt (N.9 1) ARtAHHl <Y<AR<LI<Y (ARH1  <L»  <2 (AH<L)  <  L ( ARM  1 <  L ) 

CIOLINT 

SO 

9J  FURH*[ (SA.AOO  40  LUUH»t215tA<SAtEl5<7> ) 

CIOLInT 

SI 

go  ro  so 

CIOLINT 

62 

7  OWHOR  a  (IliU 

CIOLInT 

S3 

KKK*<J 

CIOLINT 

Sa 

GO  TO  SO 

CIOLINT 

65 

0  DRHOR  a  2(NM<L) 

CIOLINT 

66 

ftftftaj 

CIOLINI 

67 

SO  continue 

CIOLINT 

sa 

IF ( AS<GT<20<I  HR  1  IE (St  199) AAA tSRtORHOR 

CIOLINT 

69 

199  F OHM A I (10AtISt2( SA <E1S<7) <•  AAA<SR<ORHORA< ) 

ClOLINt 

70 

AN2»  0HHOL»CRH0U)  *  ORHUR*CHHU(L) 

ClOLINt 

71 

IF  <AS<GT<20<  I HRl TE (St 299)  CHMO  < 1 ) tCHnO <L> 

CIOLINT 

72 

299  FORMAT  <20A<ACRHO< l)tCHHU(L)  • t2 < t IS. 7 ) t/ ) 

ClOLINt 

73 

RETURN 

CIOLINT 

7A 

ENO 

CIOLINT 

7b 

28 .  SUBROUTINE  R0SN6 


a.  Purpose  --  Subroutine  R0SN6  (How  chart  organization  shown  in  Fig. 
58)  is  incorporated  into  the  SOQ  code  to  allow  inclusion  of  the  cavity- 
density  field  from  direct  interferogram  data  reduction.  The  data  from  inter¬ 
ferometry  are  assumed  to  have  been  fit  in  the  y  (parallel  to  NEP)  direction 
by  cubic  splines,  using  spaced  points  (not  necessarily  equal). 
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R0SN6 


R0SN6  .12  TO  ROSN6  .27 


ROSN6.28  TO  R0SN6.44 


ROSN6.45  TO  R0SN6.49 


ROSN6  .50  TO  ROSN6  .63 


ROSN6  .64 


ROSN6  .66 


Figure  58.  Subroutine  R0SN6  organization. 


213 


Subroutine  R0SN6  is  a  bivariate  interpolation  of  the  spline  fit  data 
using  cubic  splines. 

b.  Relevant  formalism  --  Subroutine  R0SN6  uses  the  following  procedure 
to  interpolate  the  available  spline  data  for  an  arbitrary  cavity  mesh  point, 
(x,y) ,  shown  in  Figure  59. 

(1)  Locate  *  in  the  spline  fit  data. 

(2)  Interpolate,  using  the  spline  fits  at  constant  y,  for  the 

value  of  —  at  the  nearest  three  x  values,  (A), 

o 

(3)  Construct  a  cubic  spline  in  the  direction  (x^y*)  and 
evaluate  at  (x*,y*) 

(4)  Modify  —  (x*,y*)  bv  —  (x*,y*)  to  obtain  Ao 

PCL  PCL 

in  the  desired  units. 

See  page  214  for  subroutine  R0SN6  computer  printouts. 


r 


*  (x*,  y*) 

•  Spline  Fit 
Mesh  Points 

a  Interpolates; 
(xj,  y#) 


Figure  59.  Available  spline  data  for  an  arbitrary  cavity 
mesh  point. 


214 


u  u  o 


Commons  modified 


/MELT/  not  modified 

/MELT/  is  used  to  transfer  in  the  following  data: 

x<=>cavity  flow  direction  coordinates  of  spline  fit  data 

y<*>orthogonal  coordinates  of  spline  coefficients 

2<*>ordinate  at  each  (x.,y.) 

x  y 

C<= corresponding  spline  coefficients 
M<a>index  array  for  constant  x. 

N 

ROCL  intended  to  be  p  at  the  center  line  but  may  be  an  artibrary 
scaling  parameter. 

Relevant  Variables 

xx  cavity  x-position 
yv  cavity  y-position 

XNZ  ordinate  interpolated  at  (x,y),  normally  Ap  =  ffx,y) 


SUBROUTINE  R0SN6  76/176  0PT=1  FIN  4.6+432  04/27/79  12.23.47 


sue#uuri>.£  ho5N6iaa.ty.an2> 

M05N6 

2 

c 

t*is  xouiiNfc  ia  ustu  iu  utitHrvcAft  (nt  cavity 

0ENS1IY  FltLO 

MU5N6 

J 

c 

(OtLIA  HnO/MMO  4N0  SPLINE  COEFFICIENT  vtMSUS  * 

ANO  Y)  ONTO  THE 

H05N6 

A 

c 

CavITt  MtSM. 

H0SN6 

s 

LEvEL  2.  PUUM 

MUSN6 

6 

COMMON  /  MtL 1  /  PDUMI20 OUV  >•  A  121)  t 

H0SN6 

r 

A  Y  121.81 1  «  2  121.81)  .C  121 .81)  «MI21>  »i'MK0CL.QUMYSU077B> 

C0HM2 

10 

UlMgNSlON  F  IJ)  ,FMl  j) 

H0SN6 

0 

o*  t  a  n.u/2.2/ 

H0SN6 

10 

6lA)*A*IA*A-l.) 

H0SN6 

11 

c 

COMPUTE  LUCA  1  ION  OF  AA  IN  All)  All)  .Lt.  AA  .Lt. 

AIN) 

*05*6 

12 

*A*N-2 

H05N6 

1J 

ID  A01*AI1I)-AA 

H0SN6 

l* 

AU2«A<  IlMi-AX 

*05*6 

IS 

ifiaoi*au2>2.2.i2 

K05N6 

16 

12  IFIAU1  .l»T.  U.l  so  ro  IS 

MOSNA 

17 

11  -  11*1 

K0SN6 

18 

IF  I  11  .LI.  AA)  60  ru  10 

H0SN6 

19 

II**  A 

H0SN6 

20 

60  TO  2 

X0SN6 

21 

U  11  «  l l-l 

mosna 

22 

IF  1 1 1  .61.  01  60  TO  10 

KQSN6 

2  J 

11  »l 

K0SN6 

24 

c 

COMPUTE  T*wet  VALUES  OF  2.ANO  U2/UY  AT  YY 

K0SN6 

25 

2  L«1I*2 

hqsna 

26 

KK*0 

K0SN6 

27 

c 

COMPUTE  LOCATION  OF  YY  IN  TIMID)  Till  .Lt.  YY  . 

LE.  YIMII)) 

MOSNA 

28 

00  6  1*1 i fL 

MOSNA 

29 

KKa*K*l 

MOSNA 

JO 

«Y*M(l)-i 

MOSNA 

Jl 

IF  I J  .67.  ATI  JaAY 

MOSNA 

32 
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20  Y01»Y  ( I  .JI-YY 

H0SN6 

33 

YD2  * 

H05N6 

34 

IF<yui»yu2>5.5.22 

H0SN6 

39 

22  IFlYOl  .t»T.  0.)  GO  TO  23 

MOSN6 

36 

J«J*1 

H05N6 

37 

IF  ( J  .Lr.  KYI  GO  TO  20 

H0SN6 

38 

0«XY 

N0SN6 

39 

SO  TO  5 

H0SN6 

40 

23  J»J-1 

H0SN6 

41 

IF  ( J  .GT.  01  SO  To  20 

M0SN6 

42 

J*l 

HUSN6 

43 

5  JF«J*1 

HQSN6 

44 

H«Y  ( I  <  JR)  -Y  ( l  >  J) 

N0SN6 

45 

OaMYY«Y(I»J)  l/H 

MQSN6 

46 

E«l.«t) 

KUSN6 

47 

F  (KK)  *U#2  ( I  ♦  JR)  •£•£  ( I  •  J)  «n*H/b.#  <C l 1 t J) *G IE)  «C  ( I  •  JP I  *G  (D)  > 

HOSN6 

46 

6  CONTINUE 

M0SN6 

49 

COMRUfE  Z«02/0A.U2/0Y  *T  XX  FHUM  COdIC  SRUNt  THROUGH  F  ANO  FR 

H0SN6 

50 

H1»X(U«U-A(U> 

HUSH* 

91 

M2«A1II»2>-X(II*1) 

MOSN6 

52 

IF (A(II*1>-AX> /. 8<a 

HUSN6 

93 

7  0»(XX-A<1I«1)  )/H2 

HUSN6 

94 

K«2 

R0SN6 

5S 

h»h2 

H0SN6 

56 

GO  TO  9 

H05N6 

57 

8  0*UA-X(ll>  l/Hl 

H0SN6 

58 

**l 

HU9N6 

59 

H«rU 

xOSNb 

60 

9  E«l.-0 

HUSN6 

61 

CO*2.»  1  <►'  ( J)  -F  (2)1  /H2-iF  (2)-F  (  1  >  ) /Hi )  /  IHl*H2) 

N0SN6 

62 

T£M»H«H/b. • (0(6) *0(01 ) 

MOSNO 

63 

XN«0»F  (X»l)  IK)  ♦CU»T£M 

K05N6 

64 

Xm2«R0CL»XN 

HU5N6 

65 

hETUHN 

HOSN6 

66 

ENU 

K05N6 

67 

29 .  SUBROUTINE  SIMPGG 

a.  Purpose  --  SIMPGG  is  used  to  calculate  loaded  gain  for  GDL  cavities. 
It  uses  the  E.  A.  Sziklas  closed-form  gain  solution  as  derived  in  Reference  1, 
instead  of  numerically  solving  the  appropriate  GDL  kinetics  differential  equa¬ 
tions.  SIMPGG  also  finds  the  intensity  emitted  at  the  gain/phase  segment  for 
use  in  FUHS.  Figure  60  shows  the  SIMPGG  organization. 

b.  Relative  formalism  —  The  effect  of  the  interaction  of  the  light 
with  the  medium  results  in  an  amplification  of  the  light  beam  as  well  as  a 


phase  change.  Analytically  this  effect  on  the  field  is  writ'en 
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SIMPGG 


SIMPGG.  15— 
SIMPGG.  22 


SIMPGG.  24— 
SIMPGG.  32 


SIMPGG.  33— 
SIMPGG.  44 


SIMPGG.  49— 
SIMPGG.  53 


Figure  60.  Subroutine  SIMPGG  organization. 


AL  is  width  of  the  medium  under  consideration,  g  (x,y) 

is  the  loaded  gain  coefficients  and  An(x,y)  is  change  in  index  of 

refraction  due  to  density  variations. 

The  factor  of  1/2  in  the  exponent  is  due  to  the  fact  that  gain  is  inten¬ 
sity,  not  amplitude,  related: 


OUT 


IN 


_ 


=  GI 


IN 


(160) 


where 

I  -  |u|2 
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SIMPGG  determines  g(x,y)  analytically  using  expression 

-X„0S 


gC-x.y) 


(  C02  \  x 

(x.y)  I  'S'/  dx 


l~TT[x7yJ7T 


SAT 


TSAT  + 


Kx.yj _ 

TU~7) 


(161) 


and  using  the  trapizoidal  rule  for  the  integral,  where  g  (x,y)  is  the  small- 
signal  gain  coefficient  found  in  subroutine  GAINXY. 

Note  that 


g(x,y) 


g0U,y) 


I(x,y)  =  0 


( 1621 


I  is  the  "saturation  intensity" 


where 


XSAT 


=  ho  3 
a 


(163) 


hv  is  the  photon  energy,  3  the  lower  laser  level  relaxation  rate,  and  <j 

the  optical  cross  section  for  the  transition.  I  ^  is  also  defined  in  sub¬ 
sat 

routine  GAINXY. 

Where  the  FUHS  routine  is  to  be  called  to  calculate  heat  increase  in  the 
gas  due  to  lower  level  decay,  the  intensity  change  in  the  beam  is  needed  for 
each  gain  phase  segment,  thus  giving  the  heat  release. 

Consider  Figure  61  of  a  gain/phase  segment 
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I 


Then  for  each  (I,J) 

-1  =  C1!  +  r3)  -  (r2  +  r4)  (164) 

the  quantity  stored  in  the  array  PPD  after  a  complete  round  trip  is  the 
average  of  the  right  running  wave  (1^  +  /2  plus  the  average  of  the  left 

running  wave  (1^  +  1^) /2 . 

Therefore 


PPD  *  (IL  *  I2  +  I3  +  I4)/2 


(16S) 


but  I.  =  GI,  and  I.  -  GI, 
2  4  j 

so  ill  *  (1-G)  (I  +1  ) 
/UG\ 

and  PPD  =1 - -Ifl^Ij) 

therefore 


(166) 


Knowing  the  total  power  change  due  to  Al  and  the  quantum  efficiency  n,  the' 

1  /ln\ 

total  heat  released  is  found.  The  factor  —  I - 1  is  discussed  in  FUHS. 

Az  \  n  / 

c .  Fortran 
Argument  List 

PPD  *  Total  intensity  (left  running  +  right  running  waves)  — 

1  /ln\ 

Becomes  —  {  - 1  AI  for  use  in  FUHS 

Az  \  n  / 

GG  ■  Gain  *  i"gA2/2 

NCV  ■  cavity  number 
Commons  modified  --  none 
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Subroutines  called  -  none. 

Subroutine  SIMPGG  computer  printouts  follow. 

SUBROUTINE  SIMPGG  76/176  0PT=1  FIN  4.6+452  04/27/79  12.23.47 


SUdNOUTINC  SIMPGG  (PPD.GG.nCV) 

SIMPGG 

2 

c 

CLOSED  FOHM  u* In  ALoOnIThm 

SIMPGG 

3 

c 

r«ts  KouriNt  usts  me  e.a.seialas  closed  fomm  gain  solution  fun 

SIMPGG 

4 

c 

cue  tu  calculate  loaded  gain  Fun  me  gol  cavities. 

SIMPGG 

S 

LEVEL  it  AC.PMO.GG 

SIMPGG 

6 

CUMHON/CAV2/  ACISt «YC(S> *2C(3> .NA IS) .NY (SI «NS(S> .AMCIS) .YMCIS) • 

SIMPGG 

T 

2NSTYPU0).  IUSU0).  SSGAINIIGO.SI .SATINISI .GETAISI .PMOSIS) . 

SIMPGG 

8 

3  VELISI .GAM (5) .XMACH(S)  .TVKSI  »TV2(S> .TVJIS) ,TVN2(S> .rSCAV(S) f 

SIMPGG 

9 

A  PSCAV(S) ,P8(S) .FN21S) .FCU21S) .FH2UI3I .FCUISI .FU2ISI ♦ 

SIMPGG 

10 

S  riTLtieui.  AVGISI.NSYM 

SIMPGG 

11 

OImENSIOn  GG 1 1 ) •  PPUI  16384). 

SIMPGG 

12 

2  G 1 190 ) • SGAINA ( 190) . A  IN  f S 1 190 ) 

SIMPGG 

13 

c 

CALL  CPuriM(lSMT) 

SIMPGG 

14 

NSAaNS (NCV) 

SIMPGG 

IS 

NYAaNY(NCV)  /  (NSVM*l) 

SIMPGG 

16 

NAAaNAluCV) 

SIMPGG 

17 

SATaSAT IN (NCV ) 

SIMPGG 

18 

MUfa  NAA+NVA 

SIMPGG 

19 

OOAAa  XCiNCV)  /  NAA 

SIMPGG 

20 

2A2  a  lCINCV)/NS<NCV)/2. 

SIMPGG 

21 

AC1«FC02 (NCV >  aflt r A (NCV 1 /Fn< (NCV ) /VEL (NCV > 

SIMPGG 

22 

c 

•HITE (6.2)  N3A.NYA.NAA.D0AA.2A2.AC1. ISSGAIN(K.NCV) .A* 1 .NAA) 

SIMPGG 

23 

c 

2  FUHMaT ( 1*0.313. JG12.S/16I U.6GI2.S/) 1 

SIMPGG 

24 

Oil  80  jml'NY A 

SIMPGG 

23 

I2al«(J-l)*NAA 

SIMPGG 

26 

POP  a  PPO(  12) /SAT 

SIMPGG 

27 

POP!  a  POP  •  1. 

SIMPGG 

28 

SGAlNA(J)  a  POP/POP 1 *00 A  A/2 • 

SIMPGG 

29 

HINTS  Ml  ■  POP/POP  1 

SIMPGG 

30 

G(J)  a  SSGAIN(l,NCV>/PUPl*EAP(-ACi*SGAlNAU>  ) 

SIMPGG 

31 

80  GG(  12  )■  EAP(GM)*2X2) 

SIMPGG 

32 

00  110  I *2. NAA 

SIMPGG 

33 

c 

•MITE  16.3)  6132)  .SGAINA  (32)  «alNfS(32>  .GGUM.32) 

SIMPGG 

34 

c 

3  FOwmat UA.4G12.5) 

SIMPGG 

33 

00  110  jal.NYA 

SIMPGG 

3* 

12  •  l»(J-ll*NAA 

SIMPGG 

37 

POP  a  PPO ( 12  l/SAT 

SIMPGG 

38 

P0P1  a  1..P0P 

SIMPGG 

39 

HINTa  PUP  /  P0P1 

SIMPGG 

40 

SGAlNA(J)  a  SGAINX  (J)  •  (HINT.HlNTSU)  ) /2.*00XA 

SIMPGG 

*1 

HINTS (U>  ■  HINT 

SIMPGG 

42 

6M>  a  SSGAIN(I.nCV)  /PUP1*EAP(-AC1*S0AINXU) ) 

SIMPGG 

*3 

110  66(12  >  >  EAP IG( J) *2X2) 

SIMPGG 

44 

IF ( luS (NCV I .LE.  0)  GO  TO  300 

SIMPGG 

43 

c 

SIMPGG 

4G 

c 

COMPUTE  MEAT  MELEASE  FUNCTION  FOM  FUNS  ANALYSIS 

SIMPGG 

67 

c 

SIMPGG 

46 

ETA  a  .40 

SIMPGG 

49 

MCONSTa2.£»7*(l.»fcTA)/ETA/(2C(NCV)/NSA) 

SIMPGG 

30 

OU  200  t«l.MUT 

SIMPGG 

31 

BlGOaGGI  I  > **2 

SIMPGG 

32 

200  PPU<  I  )«HCONST*PPO(  I  ) *  1 0 1 GG* 1.0)/ (6 166+ 1.0) 

SIMPGG 

33 

c 

300  CALL  CPUT INI  IF  IN) 

SIMPGG 

34 

c 

OELfa* ISMT-IF INI /I 00. 

SIMPGG 

33 

c 

HM1TEI6.310)  OELT 

SIMPGG 

3* 

c 

310  FOMMAK2SMO  GAIN  CALCULATIONS  COST  .G12.S.20H  SECONDS  OF  CPU  TIME/ 

SIMPGG 

»» 

c 

A/I 

SIMPGG 

38 

300  METUMN 

SIMPGG 

39 

End 

SIMPGG 

60 
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The  following  is  from  Reference  1  and  is  included  for  the  convenience  of 
the  reader. 

The  gain  coefficient  for  a  gas  dynamic  laser  is  decribed  with  the  aid  of 
a  simple  three- level  model  representing  a  flowing  N2*C02  system  interacting 
with  a  10. 6u  beam.  The  relevant  energy-level  structure  is  illustrated  sche¬ 
matically  in  Figure  62.  The  upper  (001)  and  lower  (100)  laser  levels  of  CO^ 
are  designated  a  and  b,  respectively.  The  symbols  n^  and  n^  denote  the  popu¬ 
lation  densities  occupying  these  levels.  The  first  excited  vibrational  level 
of  is  nearly  resonant  with  the  upper  laser  level.  The  population  density 
N  is  nearly  resonant  with  the  upper  laser  level.  The  population  density  N 
in  this  level  preferentially  pumps  the  upper  laser  level.  Since  the  ground 
state  CO.,  and  N2  populations,  labelled  nQ  and  Nq,  are  generally  large  com¬ 
pared  to  n^,  n^,  and  N,  the  magnitudes  of  nQ  and  Nq,  are  relatively  unaf¬ 
fected  by  transitions  to  and  from  the  excited  levels.  Accordingly,  nQ  and  Sq 
may  be  viewed  as  constants,  i.e.,  nQ/No  “  C02/x^  *  constant  where  Xgg^  and 

X„  are  the  mole  fractions  of  CO-  and  N?. 

N2 


Figure  62.  Relevant  energy  level  diagram  for  N2-C02  system. 
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For  steady  flow  in  the  x-direction  the  rate  equations  describing  the 
spatial  variation  of  the  three  relevant  population  densities  n  ,  and  N 
are  given  by 


6n 


v  —t-AN  -  (a+r)na  -  (ol/h*)  (na-nb) 


v  -  =  -  iln^  =  (al/hv)  (n&  -  n^) 


(167) 

(168) 


v 


<5_N 

5x 


rn  -  an 

a 


(169) 


Here,  v  is  the  flow  velocity  (assumed  constant):  a  and  S  are  the  relaxation 
rates  of  the  upper  and  lower  levels;  A  and  r  are  the  forward  and  backward 
pumping  rates  of  the  upper  laser  level;  a  is  the  optical  cross  section  for 
the  laser  transition;  hv  is  the  photon  energy;  and  I  is  the  beam  intensity. 

Since  the  pumping  rates  A  and  r  are  proportional  to  the  ground  state 
population  densities  nQ  and  N  ,  respectively,  it  follows  that 


A/r  * 


(170) 


Under  typical  GDL  operating  conditions  xrn  <<XyI  •  Also  typically,  the  upper 

LU2  n2 

level  decay  rate  is  slow  relative  to  the  lower  level  decay  rate,  and  the 
latter  is  slow  relative  to  the  backward  pumping  rate,  i.e., 


a<.<0,  A«r 


(171) 


The  beam  is  assumed  to  propagate  in  the  z -direction.  For  purposes  of 
analysis  it  is  convenient  to  suppose  that  the  transverse  intensity  profile 
at  some  axial  station  z  can  be  divided  into  a  series  of  constant  intensity 
segments,  as  illustrated  in  Figure  63.  For  example,  in  the  n  segment 
(xn<x<xn+1)  the  intensity  distribution  is  approximated  by  the  value  I  * 
constant.  For  the  moment,  the  segment  width  x^  -  x^  is  left  unspecified. 
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Intensity,  1 


Figure  63.  Step  approximation  to  transverse  intensity 
profile. 

The  gain  coefficient  for  the  laser  transition  is  defined  by 

g(x,I)  s.cfr^-n^  (172) 

We  wish  to  solve  for  g  *  g(x,I)  in  the  nth  segment  (n  *  1,  2,  3,  ...)  where 

I  *  I  =  constant.  The  upstream  edge  conditions  n  (x  ) ,  n,  (x  )  and  N(x  )  are 
n  an  bn  n 

presumed  known  from  the  solution  in  the  adjacent  upstream  segment.  By  succes¬ 
sive  application  of  the  nth  segment  solution,  commencing  with  the  segment  at 
the  upstream  edge  of  the  beam,  one  can  in  principle  solve  for  g  throughout 
the  optical  cavity. 

The  advantage  of  the  segmented  description  is  that  an  exact  solution  can 
be  found  in  a  region  of  constant  beam  intensity.  Moreover,  under  suitable 
approximations,  to  be  discussed  later,  this  sequence  of  exact  solutions  can 
be  put  in  a  simple  analytical  form  suitable  for  application  to  a  smoothly 
varying  beam  profile. 

Applying  the  Laplace  transform  to  equations  (167)  through  (169),  one 
obtains 
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where 


's+a+r+W 


-W 
s+U+W, 
0 


n 


-A 

0 

S+A; 


(J 

•  \: 

\  N 


Here,  n  (s)  =  (1/v) 

a 

and  lvn  =  oIn/hv. 
Solving  by  b 


J  dx  na(x)  exp  J^-s(x  -  xn)/vj  , 


etc .  . 


naCs) 


detl ‘^(s+S+y  OA)naCxn)  ♦  VS*A)W  *A  (s****n)N(xn)]  ^174) 


-1 


s  an 


l' 


-M( 


'V  I  ‘ll  \  A  I  '  »»  ‘II,  1  A  I 

n'  a  n'  n  b^  n' 


VV  *  VNCv)  (l75’ 

r*V<s‘#*V  -  w7|M(xn)J 


(176) 


Here,  |det|  is  the  determinant  of  a  given  by 


3  2 

det  =  s  +k.s  +k,s+k 
2  lo 


(177) 


where 

k7  =  3  +  A+r*2W 
-  n 

kL  =S (A+T)  *  Wn(2A+r*S) 
k0  *A8(a+Wn) 


The  approximate  equality  sign  refers  to  the  use  of  the  first  half  (a«8,A,r  ) 
of  the  inequality  171. 

Under  the  same  approximation  the  roots  of  equation  (177)  are  given  by 


AS(a+Wn) 

rla‘ g(h+r)  *  Wn  (2,vr+f3y 

r2  “  I  [A+F+  0  +2Wn  ‘  V(A+r‘0)2  +  4Wn  (Wn"A)] 
r3  3  I  [A+r>  0  +2Wn  +  V(A+r‘0)2  +  4Wn  CWn“A)] 


(178) 

(179) 

(180) 


where  !det|  =  (s+r^)  (s+r7)  (s+r^) . 

In  the  absence  of  a  beam  (W^  =  0)  the  roots  r  ,  r 2  and  r.  have  a  simple 
physical  interpretation. 


^  r°  *  a  A/  (A+D 

r  r°  *  P 

2  T2  (181) 

r,  r.  *  A  +  r 

3  o 


The  value  r^  defines  the  relaxation  rate  of  the  available  laser  energy  (the 
upper  laser  level  coupled  to  the  vibrational ly  excited  N,)  in  the  absence  of 
a  beam;  r°  describes  the  lower  level  decay;  and  r°  is  the  rate  at  which  pump¬ 
ing  equilibrium  between  the  excited  CO-  and  N_  is  established.  Typically, 
o  o  o  2  2 

rl<<r2<<r3* 


As  is  increased  from  zero,  the  physical  identification  of  the  roots 
r^,  r^,  and  r^  becomes  somewhat  obscure.  However,  the  inequality  r^<<r,<<r, 

appears  to  hold  for  all  values  of  W  .  This  feature  leads  to  an  important 
simplification. 

*Care  must  be  exercised  not  to  introduce  the  second  inequality  at  too  early 
a  stage  in  the  calculation. 
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Taking  the  inverse  Laplace  transform  of  equations  (174)  through  (176)  one 
obtains  a  solution  in  the  form 


na(x)  = 


A  exp  |-r1  (x-xn)/vj+  B  exp  |-r2 (x-xn)/vj  +  C  exp  |-r_(x-xn)/v 


(182) 


where  A,  B,  and  C  are  functions  of  the  initial  conditions  n  (x  ) ,  etc.,  and 

&  n 

of  the  various  rate  constants.  Similar  expressions  hold  for  n^(x)  and  M(x)  • 


In  the  absence  of  a  beam  (W  *  0)  this  solution  reduces  to  the  simple 

n 


form 


na(x)  [naCxn)+N(xn3]  exP  [  (*-V>/v- 

+  T  .  ,  .  .1 

L - ITT - j  exP  L'r3  Cx*xn)Aj 

nb(x)  =  nb(xR)  exp  [-r*  (x-xn)/v] 

N(3°  =  :\^r  [na(xn3  *  MCxn3]  exP  ['rl  Cx-xn3/v] 
frn,(x  )  -AN(x  )"j  r  i 

-[-■Vr  "  J  N 


(183) 

(184) 


(185) 


ihe  quantity  |r*a(x)  +  N(x)J  >  describing  the  available  laser  energy,  decays  at 
the  characteristic  rate  r^  while  the  quantity  Tn  (x)  -  AN(x)l  ,  describing 
the  departure  from  pumping  equilibrium,  decays '‘at  the  rate  r°. 

When  the  beam  intensity  I  is  nonvanishing,  the  details  of  the  solution 
become  rather  cumbersome,  and  successive  application  of  this  solution  to  a 
series  of  adjacent  beam  segments  would  be  a  tedious  task.  Fortunately  this 
complexity  can  be  largely  eliminated  with  the  aid  of  two  physically  reason¬ 
able  assumptions. 

The  first  assumption  is  that  the  segment  widths  Axn  *  xn+i  '  xn  can  be 
made  somewhat  larger  than  the  characteristic  lengths  v/r,  and  v/r^.  In  other 
words,  the  intensity  distribution  I  ■  I(x)  is  assumed  to  vary  little  over  the 
characteristic  lengths  for  lower  level  decay  and  pumping  equilibrium.  In  this 
event  the  second  and  third  terms  in  equation  (182),  evaluated  at  the  down¬ 
stream  edge  of  the  nt^1  segment,  can  be  neglected. 
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If,  in  addition,  the  rate  of  stimulated  emission  (n  *  1,2,3,...)  is 

less  than  the  pumping  equilibrium  rate  A  +  r,  it  follows  that  pumping  equilib¬ 
rium  can  be  assumed  throughout  the  optical  cavity,  i.e.. 


rn  (x)  =  N(x) 

3. 


(186) 


Application  of  these  approximations  yields  for  the  population  difference 
between  laser  levels  evaluated  at  the  downstream  edge  of  the  n^  segment 


na(VP  '  %  (xn+l)s  SCA+r) 


3(A+Dna(xn)  AX  1 

i+r)  +  Wn  (2A+F+-8)  exp  [‘"I  CV  “vj 


n  [x  )  exn 


3+W^  an 


AX  1 

;r!  <V  -rj 


( 18") 


where,  in  the  latter  expression,  use  has  been  made  of  the  second  half  of  the 
inequality  (171). 

By  a  similar  procedure  one  finds 


n  (x  )  a  n  (x  ,)  exp 
a  n  a  n-1'  * 


Ax  , 

-ri  (VP  -T1 


(138) 


Repeated  substitution  of  equation  (188)  into  (187)  gives 


,  3na(xP  \  r 

VW  -  \  <Vl>  ■  J-  [W  “n  *  Wl>  «„.i 

rlCV“o]/v 


+  .  .  .  * 


(189) 


If  the  segment  widths  Axn(n  *  0,  1,  2,...)  are  now  viewed  as  "infini¬ 
tesimals"  equation  (189)  may  be  rewritten 
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If 


"If 


n  (x  ) 

na(x)-"b(x)  T^cfr  exp 


(190) 


n  (x  ) 
a  o 


exp 


-r. 


(x-xq)/v 


l+w(n) 


]  I 

—  exp  | 


\-kf« 

^  «^co 


<VrP 


where  w(x)  =  oI(x)/hvS  and  xq  defines  a  convenient  reference  station  (e.g., 
the  upstream  edge  of  the  beam) . 


Using  the  basic  definition  (172),  the  rate  expressions  (178)  and  (181), 
the  identity  (170),  and  the  inequality  (171),  one  finds  on  substitution  into 


(190) 


g(x)  = 


g0(x) 


|_l+w(x)  J 


exp 


w(x') 

l+w(xO 


(191) 


where  gQ  is  the  small -signal  gain  coefficient  given  by 


=  g0(x0)  exp 

It  is  instructive  to  note  the  physical  significance  of  various  terms 

appearing  in  equations  (191)  and  (192).  The  term  in  square  brackets  in 
equation  (191)  is  analogous  to  the  usual  gain  expression  for  a  homogenenously 

broadened  line  in  a  nonflowing  laser  medium.  Here,  however,  the  small-signal 
gain  coefficient  (192)  is  not  constant,  but  decays  exponentially  with  dis¬ 
tance  downstream.  The  nondimens ional  intensity  w(x)  measures  the  rate  of 
simulated  emission  jl/hv  relative  to  the  decay  rate  3  of  the  lower  level.  For 
a  nonflowing  laser  the  value  w  =  1  defines  the  saturation  intensity  of  the 
medium. 


r  x-n  a  (x-x  )] 


CO 


O  I 


v 


(192) 
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The  exponential  factor  in  equation  (191)  represents  a  corrective  term 
due  to  flow.  The  probability  that  an  initially  excited  CO^  molecule  will  re¬ 
main  excited  after  traversing  a  beam  is  dependent  on  the  beam  profile 
encountered  by  the  molecule  upstream  of  the  point  in  question.  This  explains 
the  presence  of  an  integral  over  the  upstream  flowpath  in  equation  (191). 

In  summary,  a  simple  approximate  expression  has  been  derived  for  the 
gain  coefficient  in  a  flowing  N^-C^  systen1,  validity  of  this  expression 
rests  on  two  principal  assumptions:  (1)  instantaneous  pumping  equilibrium  is 
maintained  throughout  the  optical  cavity  and  (2)  the  beam  intensity  changes 
slowly  over  the  characteristic  distance  for  lower  level  decay.  Although 
these  conditions  are  not  always  satisfied  in  practice,  particularly  near  the 
upstream  edge  of  the  beam,  it  is  believed  that  even  in  these  instances  equa¬ 
tion  (191)  provides  a  qualitatively  accurate  description  of  gain  saturation 
in  a  GDL.  The  gain  coefficient  defined  by  equation  (191)  is  then  included  in 
the  complex  transmission  function 

t  =  exp  £g(x,y;I)  AL/2  +  iA®  (x,y;I)J  (193) 

to  describe  the  effect  of  the  medium  gain  throughout  a  segment  of  length  AL. 
Here,  A®  represents  a  phase  shift  due  to  possible  refractive  index 
variations . 


30.  SUBROUTINE  SLIVER 

a.  Purpose  --  Subroutine  SLIVER,  shown  in  Figure  64,  applies  an 
annular  aperture  to  the  field.  It  can  be  centered  anywhere  in  the  mesh. 


b.  Relevant  formalism  --  The  field  is  set  to  zero  interior  to  the 
annular  aperture.  Mesh  squares  intersecting  the  aperture  edge  have  the  field 
linearly  adjusted  for  the  relative  area  intersected  by  the  aperture  edge. 
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INITIALIZATION  SLIVER  .2-»~SLIVER  .19 


APPLY  AN  APERTURE 


SLIVER  .20— •■•SLIVER  .37 


FORM  THE  FIELD 
APERTURED  BY  THE 
ANNULAR  APERTURE 


SLIVER  .42— •■CYCLE  9.68 


RETURN 


Figure  64.  Subroutine  SLIVER  organi ration. 


c.  Fortran 
Arguments 

RIN  *  Radius  of  the  OUTER  edge  of  the  annulus  (cm) 

ROUT  »  Radius  of  the  INNER  edge  of  the  annulus  (cm)  • 

NOTE:  Both  RIN  and  ROUT  must  be  negative  to  call  '’SLIVER"  since 

if  DOUT  (*2*RIN)  and  DIN  (>2*R0UT)  are  negative  in  the  GDL 
call  IFLOW  a  4  section  SLIVER  is  called  instead  of  APRTR. 

Common  Variables  Altered 

CFIL  *  CFIL  contains  the  original  field 
CU  *  CU  is  used  to  find  the  aperture  field. 


The  Logic  of  Subroutine  SLIVER  is  the  following: 


wtrmwijijwi 


The  final  field  is  formed  by  subtracting  an  apertured  field  from  the 
original.  The  aperture  has  a  center  disk  of  radius  ROUT  while  the  inner 
radius  of  the  outer  edge  is  RIN. 

The  center  obscuration  is  first  removed  (IIN*0) ,  then  the  outer  obscura¬ 
tion  (IIN*1) .  This  apertured  field  (CU)  is  then  subtracted  from  the  original 
field  (stored  in  CFIL)  to  form  the  field  apertured  by  the  annular  aperture 
CCU). 

The  SLIVER  subroutine  computer  printout  follows. 
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31.  SUBROUTINE  SPIDER 

a.  Purpose  --  The  SPIDER  subroutine  shown  in  Figure  65  applies  an 
obscuration  to  the  complex  amplitude  field  in  the  form  of  several  support 
struts,  such  as  those  used  in  a  Cassegrain  telescope  system.  Up  to  six  struts 
at  separate  angles  may  be  modeled.  The  result  of  the  obscuration  is  listed 
in  the  output  stream  as  an  aperture  loss. 


b.  Relevant  formalism  —  An  angular  deviation  limit  a  calculated  from 
the  obscuration  inside  diameter  d,  the  grid  spacing  Ax,  and  the  strut  width 
w,  according  to 


a 


-1 

sin 


(w+2Ax)/d 


(194) 


Field  points  whose  inclination  angle  is  not  within  ±a  of  a  strut  angle  are 
assumed  to  be  unobscured.  Those  points  falling  within  this  limit  are  sub¬ 
jected  to  closer  inspection. 

The  distance  5  from  a  grid  center  (x,y)  to  the  strut  centerline  is 
calculated  by 

5  =  Jy  cos6  -  X  sinej  (195) 

where  9  is  the  strut  angle.  The  half-width  of  a  grid  measured  along  a 
normal  to  the  strut  h  is  calculated  by 

h  *  X/2./AMAX  (  |sin9)  ,|  cos8( )  (196) 


then  the  maximum  and  minimum  distance  of  the  grid  area  from  the  centerline, 


d  and  d  .  are 
max  min 


d 

max 

d  . 
min 


5  +  h 

6  -  h 
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CALLED  FROM  GDL 


REPEAT  LOOP  FOR 
EACH  STRUT 

FOR  EACH  POINT: 


TEST  FOR  NEAR 
STRUT  ANGLE 


CALCULATE  MAX  AND 
MIN  DISTANCE  OF  GRID 
AREA  FROM  STRUT 


CHECK  TO  SEE  IF 
POINT  IS  OBSCURED 


CALCULATE  PARTIAL 
OBSCURATION  FACTOR, 
UPOATE  FIELD 


SPIDER  .17 


SPIDER. 38 


SPIDER. 40- 


SPIDER. 42 


SPIDER. 45- 


Figure  65.  Subroutine  SPIDER  flow  chart. 


Points  where  d  .  is  greater  than  the  strut  half  width  h  are  not  obscured, 
nun  s 

Points  where  d  „  is  less  than  the  strut  half  width  are  totally  obscured, 
max 

The  intensity  of  all  other  points  is  weighted  according  to 


intensity  weighting  =  (d  -h  }/(d  -d  .  1  ncm 

s  s  max  s'  max  mm' 

Argument  List 

DIH  diameter  of  inner  edge  of  support  (hub) 

NSPD  number  of  struts  or  spokes 

THETA  array  of  strut  angles 

WIDTH  strut  width 

XC  x-position  of  center  of  obscuration 

YC  y-position  of  center  of  obscuration 

Relevant  Variables 

ANG  inclination  angle  of  a  point  (x,y) 

ANGTOL  angular  width  about  the  strut  angle  which  defines  the  region 
to  be  searched  for  possible  obscuration 
DELTA  distance  from  (x,y)  to  the  strut  along  a  normal 

DELXDH  half-width  of  coordinate  grid  measured  along  a  nonnal  to  a 

strut 

PER  weighting  factor  in  establishing  fractional  obscuration 

Commons  Modified 
/MELT/ 

CU  the  complex  amplitude  field. 

The  SPIDER  subroutine  computer  printout  follows. 
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32  SUBROUTINE  SPTAN 

The  SPTAN  subroutine  shown  in  Figure  66  functions  to  take  input  values 
of  x  and  y  and  return  the  angle  whose  tangent  they  represent.  SPTAN  insures 
that  the  angle  returned  is  within  the  range 

0  <_  9  _<  2  tt 
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Figure  66.  Subroutine  SPTAN  flow  chart. 
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33..  SUBROUTINE  STEP 


a.  Purpose  --  Subroutine  STEP  shown  in  Figure  67  is  used  to  propagate 
the  field  through  a  vacuum.  It  also  calculates  Strehl  intensity. 

b.  Relevant  formalism 

(1)  Propagation  —  STEP  allows  for  two  types  of  propagation 

(a)  Constant  area  mesh  —  This  type  is  used  to  propagate 
collimated  and  quasi-collimated  beams.  It  assumes  that  edge  spreading  of  the 
beam  due  to  diffraction  is  not  severe  enough  for  the  beam  to  get  too  close  to 
the  edge  of  the  calculation  region. 

(b)  Variable  area  mesh  (VAMP)  —  VAMP  is  used  to  propagate 
beams  containing  phase  with  curvature.  As  will  be  shown,  the  curvature  is 
first  removed  from  the  field.  The  (collimated)  field  is  then  propagated  an 
equivalent  propagation  distance  which  is  defined  by  the  formalism.  After 
propagation,  the  propagated  curvature  is  returned  to  the  field. 

The  theory  of  VAMP  propagation  is  developed  in  Section  5-D  of  AWFL-TR- 
73-231  and  is  repeated  here  for  continuity. 

First,  consider  constant  area  mesh  propagation.  The  scalar  wave  func¬ 
tion  propagating  in  the  2-direction  is  written 

»(*,t)  ■  U(5)el(Wt'k::i  (198) 

equation  derived  from  Maxwell's 

(199) 


(200) 

then  u(x)  obeys  the  paraxial  wave  equation 


The  function  ^(x,t)  obeys  the  scalar  wave 
equations 


_2  1  3  2<i 

7  *  *  T  ~~ 7 

c  3  c 


If  one  assumes  that 


■> 

3“'|) 


3t 


,  3u 
T  <<k  — 
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Figure  6".  Subroutine  STEP  organization. 
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By  using  the  method  of  Fourier  Transforms  u(x)  is 


where 


u(x)  =  JJ ifxdfy  e2l,l(fxx+V)U(fxx  +  )£iirXZ(fx  (202) 

•  CO 

00 

U(fx,fy)  =  jj dx'dy'e‘2iriCfxx'  +  V5  U(x',yJi,0) 


The  Fourier  Transforms  are  efficiently  performed  by  using  the  FFT. 

For  variable  area  mesh,  the  following  approach  is  used: 

The  spreading  of  the  beam  is  estimated  by  that  of  a  Gaussian  reference  beam 
with  the  same  radius  of  curvature  as  the  physical  beam.  This  curvature  is 
removed  so  that  during  propagation  the  beam  continues  to  fill  the  calcula¬ 
tion  region. 

Propagation  of  a  Gaussian  beam  is  easily  handled  by  assuming  knowledge 
of  the  associated  Gaussian  plane  wave.  According  to  Siegman,  Chapter  8, 

(Ref.  14] ,  a  Gaussian  plane  wave  (at  Z  =  0] 


WV 


I-* 


when  propagated  a  distance  Z  becomes 


u(x,y,z)  * 


V?  (fc)  •-* 


(kz-<j/(z))  £-(x2+y2) 


where 


R(z)  *  z 


w(z)  *  WQ  fl  ♦ 


•ti(z)  *  tan"  {  — I 


14.  Siegman,  A.  E.,  An  Introduction  to  Lasers  and  Masers,  McGraw-Hill, 
New  York,  1971 . 
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with 


,  the  Rayleigh  range. 


Therefore,  to  propagate  a  Gaussian  beam  of  waist  w(Z)  and  radius  or  curvature 
R(Z)  a  distance  AZ,  the  following  approach  should  be  taken: 

Knowing  the  waist  and  radius  of  curvature,  one  can  determine  the  spot 
site  wq  and  distance  to  the  spot  site  Z,  according  to 

RCO 

zi  *  7  r? 

/XR(z  ^ \-  (205 

1  w 


W(2,) 


^rw(t1)^  y 
+\ar(21T  j 


Then,  from  this  origin  a  distance  Z^  =  +  AZ  is  propagated  to  determine  the 

desired  wave  function. 

Since  it  is  known  how  a  Gaussian  wave  propagates,  it  is  possible  that 
transforming  a  given  wave  with  a  spherical  wave  front  to  Gaussian  coordinates 
could  result  in  the  propagation  of  a  quasi-collimated  wave.  The  appropriate 
transformation  is  found  to  be 


•  fk(x“  1-  y~)  -1  /  z\ 

l  »(»  **“  (*) 


where  Z  is  the  distance  from  the  current  reference  Gaussian  beam,  defined  by 
R(Z)  and  w(Z)  to  its  spot.  is  the  Rayleigh  range  of  this  reference  Gaus¬ 


sian  beam. 


By  transforming  to  Gaussian  coordinates: 


x/w(t) 


"(4) 


Y  =  y/w(t) 
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The  beam  transformation  is  written  as 


2  ? 


u(x)  *  v(x)  ^°5  z  £-i(X'+Y-)  tan  Z  +  iZ 


(209) 


Inserting  this  equation  into  the  paraxial  wave  equation  results  in  the  fol¬ 
lowing  differential  equation  in  terms  of  Gaussian  coordinates 


-4i  |1  ♦  +  4  (1*(X2+Y2))  v  =  0 

oZ  3X2  3Y2 


(210) 


which,  except  for  the  quadratic,  is  similar  to  the  paraxial  wave  equation. 

The  quadratic  term  (X"  +  Y~)v  can  be  dropped  if  the  reference  Gaussian  para¬ 
meters  and  propagation  distance  are  chosen  so  that  v  is  equal  to  zero  when¬ 
ever  X  or  Y  approaches  1.  This  implies  that  the  initial  waist  of  the  refer¬ 
ence  Gaussian  be  much  larger  than  the  sice  of  the  beam  to  be  propagated.  The 
propagation  distance  AZ  must  then  be  restricted  so  that  the  waist  of  the 
reference  beam  remains  large  compared  with  the  beam  sice  throughout  the  prop¬ 
agation.  With  these  restrictions,  the  equation  for  v  in  Gaussian  coordinates 
becomes 


32v 

+  ifv  +  4v  -  4i  ■  0 

(211) 

3X2 

3Y2  *** 

• 

As  is  the  collimated  case,  Fourier  Transform  analysis  gives  the  following 
result: 


v(X,Y,Z) 


df  df 
x  y 


v(VV2)e 


2ffi(fxX-fyY) 


(212) 


where 


Vff  ,f  ,Z) 
x  v 


,,,,  ,  -i  fl-n2ff  2  +  f  Q 

Vrfx’fv*iU  L  X  Y  1 


U*1«i 
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and 


Vffx’fv’2l)  =  Jf^dY  VCX,Y,Z)s“2T(fxX+fyY1 

—  CO 

the  propagated  wavefunction  is  then  v(X,Y,Z)  multiplied  by  the  propagation 
envelope: 


u(x,y,z) 


V(X,Y,Z) 


cos  Z 
w 

0 


,i(X2+Y")  tan  Z  *  iZ 


(213) 


where 


z  being  the  final  distance  from  the  reference  spot.  If  the  propagation  takes 
place  well  outside  of  the  Rayleigh  range,  Z  is  much  greater  than  ZR  and  the 
expansion  of  the  arctangent  for  large  argument  can  be  used: 


/I  l\  C214) 

~R  Vi  ■ 


(2)  Strehl  intensity  —  Since  subroutine  STEP  propagates  the  beam 
using  Fourier  Transforms,  the  Strehl  intensity  is  easily  calculated. 


The  Strehl  intensity  gives  an  irradiation  of  the  amount  of  aberra¬ 
tion  present  in  the  beam  at  a  given  limiting  aperture.  It  is  defined  as  fol¬ 
lows:  Consider  a  field  U(x,y).  The  field  in  the  Frauenhofer  diffraction 
region  (the  far  field)  is  given  by  equations  (4)  through  (13)  in  Goodman: 


k  2  2 

r,  -  ike  i^T  (*  ) 

u(x)  =  E  e  2z 


ff  (*•*')  ^ 

JJ  u(l)£  U  dx' 


(215) 
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Aside  from  the  phase  factor  in  front,  this  is  just  the  Fourier  Transform  of 
the  apertured  field  evaluated  at 


A 
f  = 


A 

x 

Xz 


(216) 


The  Strehl  intensity  is  defined  as  the  ratio  of  the  centerline  intensity  of 
the  far  field  to  that  of  a  plane  wave  propagated  the  same  distance  coming 
from  the  same  aperture  with  the  same  power.  Analytically  this  is  given  as 


*CL-FF 

STREHL  xLl-PW-FF 


F  (u(x')) 

Fljji*')) 


2 

-Jk 

f 

T 

a 

f 


=  o 


=  o 


(217) 


The  plane  wave  centerline  intensity  is  evaluated  from 


r  rT  2-rfrcose 

(v (ro) 

3  A  /  rdr  yd0£ 

0  0  J 

f  =  0 


(218) 


■> 

3  ira'A 

o 


A  being  the  plane  wave  amplitude  and  a  the  radius  of  the  aperture.  Assuming 
a  calculation  region  size  of  the  L  x  L  with  N  x  S  -  total  number  of  points, 
the  centerline  intensity  of  the  far  field  for  the  real  beam  is  found  from 


oo 

F  (uiP))  =jj Jt  u  (x  )« 


2»if • x 


o 

*5 


1  r 

dx  J  dy 

2rif-  x 

ufx  )e 

0 

N 

1  1  \  T 

/  M  2*i(4) 

\  N  /  U  (I,  J)e 

(219) 
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where 


c .  Fortran 
Argument  List 

DELZ  *  Distance  to  be 

RADCY  »  radius  of  curvature  or  the  phase  front 

WINDOX  =  x-space  cosine  data  window  for  FFT 

WINDOK  *  K-space  cosine  data  window  for  FFT 

IFG  =  Vamp  control  parameter 

=  1  constant  mesh 

a  2  variable  mesh 

ITR  «  Vamp  control  parameter 

=  0  stay  in  vamp 

a  1  transform  back  to  constant  mesh  space 
IPS  =  Tilt  and  defocus  removal  flag 

=  0  no  correction 

a  1  remove  tilt 

a  2  find  defocus  radius  of  curvature 
a  31+2  together 

total  beam  tilt  kep  track  of  for  beam  placement  in  the 
inertial  coordinate  system  instead  of  the  beam  coordinate 
system 

NWRT  ^0  Propagates  a  wave  distance  DELZ  without  altering  the  stored 
value  of  total  Z.  NWRT  *  1.  Suppresses  Strehl  intensity  cal 
culation  as  well.  NWRT  «  1  when  STEP  is  called  from  QUAL. 

IFLAG  #0  Assumes  VAMP  and/or  CAMP  parameters  are  established.  It 
tells  the  routine  to  continue  the  propagation  based  on 
previous  calculations  of  waist  and  curvature. 

Common  Variables  Altered: 

CU  -  becomes  the  propagated  field 

CFIL  -  is  altered  if  IPS  ^  0  by  a  call  to  TILT 
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X 


altered  if  in  VAMP 


DXREAL  -  moved  to  keep  track  of  center  of  beam  in  inertial  frame  as 

DYREAL  .  , 

the  beam  propagates 

WNOW  -  VAMP  parameter  altered  to  keep  track  of  the  current  spot  size 
NREG  -  Flag  to  tell  whether: 

»  0:  Constant  area  mesh  propagation 
*  1:  VAMP  inside  half  the  Rayleigh  range 
=  2:  VAMP  outside  twice  the  Rayleigh  range 
Other  routines  called: 

TILT 

FOURT 

Computer  printouts  for  subroutine  STEP  follow. 


SUBROUTINE  STEP 


'6/176  0PT=1 


FIN  4.6+452 


04/27/79 


12.25.47 


SObHOU r I N£  STEP  l OELZ •  H  AUC  4N  <  bNOOA t  bNOOK .IFtt.ITP.lPS.AX.Ar.NbHr. 

STEP 

i 

A  IFLAli  ) 

SfEP 

i 

c 

1>E  NEPAL  PWOPAbAT  INC,  ALtiOPlTHM 

STEP 

4 

c 

THIS  WOUTINE  IS  USED  TO  PHUPAbA T E  THE  COMPLEX  FIELD  A  UlSTANCt 

STEP 

* 

c 

UELZ  -  I FL  Ali«l  IS  USED  WHEN  CONT  lNUlNCi  WITH  SAMt  PWOPAliAUNU  MATH!  A 

STEP 

6 

LEVEL  2.  CUiCUH 

STEP 

T 

COMMON/bAY/bNOb,NMEl»«WAPTW 

step 

8 

COMMON/MEL  T /CU ( 1 63b A ) iCFILI 18*12) *Al 12b) . bL,NPTS*NPY .UAPEAL .OYHEAL 

STtP 

9 

DIMENSION  NNO<2> .APMI2.2610) «F AC  TH (84) .CUKIJ 2T88) .CDUMHI2) 

STEP 

10 

DOUHLE  PNECIS10N  bO»2WAL  1 21 tMAOCUH ♦ bb  *bF • TN22 

STEP 

11 

COMPLfeA  LO»CF ILtCDUM 

SlEP 

12 

tout  valence  icon)  tCUHiin  •  icoum.cuumw(I)  > 

STEP 

13 

DATA  ZInIC  /0.0/ 

StbP 

14 

IF  (1FLAO.NE.0)  SO  TO  2000 

STEP 

1* 

PlaJ. 141*4)2 

STEP 

16 

NPZP2»NP  TS«2 

SiEP 

If 

nP  b  NPTS/2 

STEP 

18 

nPP  lb  Np  ♦  l 

SfEP 

19 

ANPZbl . o/FLOAT (NPTS) ••e 

STEP 

20 

NNOUI  b  NPTS 

SfEP 

21 

MN012)  b  NPTS 

STEP 

22 

NANb2*NP  f  S*NP  T  S 

SfEP 

23 

NMESbO 

SfEP 

24 

PAUCUMaMAOCAM 

SfEP 

2» 

0CALC1«A1NPTS)-AU)  •A(2)-All) 

SfEP 

26 

IF (bNUOA.LE.O.O)  SO  TO  4b 

STEP 

27 

N bNOOA  a  bNOOX*FLOAT INP1S) 

SfEP 

28 
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non 


c 

A-SPACE  COSINE  JATA  alNOOa 

SftP 

29 

00  211  laltNWNUOX 

StEP 

30 

211 

FACTMU)  »  ( 1  » Q“C05  (F l *FLOA  r  1 1 )  /FLOAT  INaNOUX )  )  ) /2 . 0 

step 

31 

*a 

NaNOOH  a  *NOOM*FLOAT  (NPTS) 

StEP 

32 

NOaNPP  1  -  l -NWNQOM 

step 

33 

IF  (IPS. NC. 01  SO  ro  1137 

step 

34 

IF  UFS.UT.l)  SO  TO  1137 

SttP 

35 

IF  UFO. OT. 2)  00  TO  1137 

step 

J6 

IF  UFO.bO.l)  00  10  1002 

step 

37 

00  TO  S 

step 

30 

c 

DETERMINE  LINE AM  ANO  0UA0NAT1C  COMPONENTS  OF  PHASE 

step 

39 

1137 

CALL  TILT (AA.AY.RAOCAH. IPS) 

step 

40 

IF  (IFO.ur.ll  00  TO  1139 

step 

41 

IF  UFO. or  .2)  OO  TO  1139 

STEP 

42 

IF  UFO.tQ.l)  00  TO  1002 

step 

43 

00  TO  S 

step 

44 

1139 

ROME AM a 1 .£  70 

step 

45 

IF  <0AttS(RADCUR/0EL2>  .OT.MOMEAM)  00  TO  1002 

STEP 

40 

C 

♦  4 

step 

4T 

C 

VARIABLE  ARtA  MESH  PROPAOAUON  THANSf OMNA 7  ION  TO  EOUlVALENT 

step 

40 

c 

COLLlMATtO  BEAM 

step 

49 

5 

ALPMAalO. 

step 

50 

c 

Ot TERMINATION  OF  BEAM  waist  ANO  OlSIANCE  to  it 

step 

51 

Ml  a  ALPHA*0CALCl/2. 

step 

52 

■  a  a  (wI«*l»Pl/*LJ *»2 

STEP 

53 

Z1  a  MAOCUH***/ (HA0C0M**2*aal 

step 

54 

aO  aOSOMI (0SURr(PAoCJH*Zl-Zl»«2)»»U/Pl) 

STEP 

55 

ZWAL  ■  Pl»a0#aO/WL 

StEP 

SO 

anz»2 . 

sIep 

57 

IF  (0A8STZ1) .L7.ZMAL/ANZ)  NNtO*l 

StEP 

50 

IF  (OAUS(Zl)  .0T.ZHAL*AN2)  i.MEoa2 

SltF 

59 

IF  (NMEO.bO.0)  00  TO  12 

srtR 

so 

IF  <OAHSTZl*uELZ> .(if  .ZHAL/ ANA  .  ANO  .NMtO.fcU.  1 )  00  TO 

12 

STEF 

61 

IF  (UABSIZ1*0ElZ)  .tT.ZMAl.«ANZ.AN0,«Mt0.E0.2>  00  10 

12 

STEF 

62 

OOME  a  P(*a2*2MAL/ (UCALCl/ai 1 **2 

StEF 

63 

IPnT  a  1 

STEP 

64 

c 

ESTABLISH  pmOPAOATINO  MATmIA 

STEP 

•5 

c 

INCLOOES  FPEUOEnCY  SPACE  OATA  • iNUOa 

SIEP 

66 

00  101  3«2,NPP1 

SIEP 

67 

AJMIS3  a  (3-l)*»2 

StEF 

60 

wFaCTR  a  1.0 

SIEF 

69 

IF ( J.OT .NO  .ANO.  NHNOOK.OT.Ot 

STEF 

70 

1  aFACTH  »  ( 1  .  O-COS  (P  i*FLUA  T (NFRl-g) /FLOAT  (NMNOOM ))  ) /2 .0 

STEP 

71 

DO  101  1*1.0 

STEP 

72 

OUM  a  IA3M1S0*  U«1 1  **2) 

step 

73 

IPNT  a  IPNT»l 

SIEP 

74 

APMU.  IPNT)  aaFACTH 

STEP 

75 

101 

APH (2. IPNT ) *OOME#0UM 

SttP 

76 

TNZ1  a  Zl/ZWAL 

step 

77 

131*0 

step 

70 

00  2  Mal.NPY 

STEF 

79 

YS8  a  X  TO) a*2 

step 

00 

00  2  1*1  «NPTS 

STEP 

01 

131  a  131  ♦  1 

step 

02 

1312  a  131  •  2 

step 

03 

13I2M1  a  1312  -  1 

SttP 

04 

PHI  a  lull »*2  •  YSUI*TN21/oiaa2 

step 

05 

SInP  a  SlN(PHl) 

step 

06 

COSP  *  COS(PHl) 

step 

07 

CUPS  a  CUPU3I2MI) 

SttP 

00 

C0HU3I2MI)  a  *!•<  COHS»CUSP  -  COM (1312)  *SINP  > 

SttP 

89 

2 

CUP  1 1312)  a  al»<  C0HS*S1NP  *  CUP  11312) «COSP  ) 

step 

90 

IF(N«*PT,NC.O)ZMEEP«ZZZ 

StEP 

91 

ZZZ  a  Z1 

step 

92 

ZlNTEaO. 

SttP 

93 

»3*«l 

StEP 

94 

IF  UFO.EO.O)  IIHal 

StEP 

95 

oo  ro  2000 

StEP 

96 

c 

♦ 

step 

97 

c 

CONSTANT  APEA  MESH  PHOPAijAliON 

step 

90 

c 

INCLuOES  FPEUOENCY  SPACE  uATA  a INUOa 

StEP 

99 
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ononnnnnn  n  n  n  r.  n 


1002 

*  C0UH 1 «2 • *P I / ML 

STEP 

100 

□UHl  a  ( aL/OCALCl > **2 

STEP 

101 

IPNT  a  1 

STEP 

102 

C 

ESTABLISH  PROPAliATlNO  MATRIX 

SftP 

103 

00  200  JaE.NPPl 

step 

104 

AJM1SW  *  U-ll*«2 

step 

105 

aF  AC  TH  a  1.0 

STEP 

106 

lF(J.(if..<0  .AND.  NaNOOK .31.0) 

STEP 

ior 

1  aFACTR  *  (l.0-C0S(Pl*FL0AT(NpPl-J>/FL0Ar  (NaNOOK)  0/2.0 

step 

108 

00  200  1*1  * J 

SftP 

109 

OUH  a(AJMlSQ* ( I-l) *«2) 

SfEP 

110 

0UM2  a  OUH1«OOH 

SftP 

111 

0UM3  a  <U.l25*OuM2»0.5)4UOM2 

SftP 

112 

IP NT  a  IPNf*l 

step 

113 

APR ( 1  * IPN  f 1 aaF AC  T R 

step 

114 

200 

APR (2. IPNT ) »4CDUMl*UUM3 

STEP 

115 

c 

enter  PooriNt  "tMfc  »HtN  continuing  *irn  same  propaoatino  matrix 

srtP 

116 

c 

entry  cope (oelz • i th.nrr r > 

STtP 

117 

2000 

22Z>2<£2*OKl2 

step 

118 

IF  lNaPr.NE.0)  00  ro  202 

step 

119 

ZlNTt*2INfE*UCL2 

SiEP 

120 

ZZMlNailNTE-UELZ 

SIEP 

121 

XHESH  a  A(NPTS)-2.*X ( 11 «A (2) 

SftP 

122 

«C tK « ( 1  .  -2  .  #6NOO A )  4 *  ( NR  1 5 ) 

STtP 

123 

IF (RAPTR.Ut.RCEK)RAPTHBU. 

STtP 

124 

«o2 

IF  (NREO.EU.U)  (jO  TO  92 

srtP 

12S 

aPOaaaOaOSOP  1  <  1 .  «  <222/ 2PAU  **2) 

SftP 

126 

AAPANOaaNQM/aJ 

STEP 

127 

aOawNOW 

SfEP 

128 

c 

auoost  atAP  coordinates  fop  paonif icat ion  a no  pihpop  tili 

SfEP 

129 

00  93  lai.NPTS 

STEP 

130 

93 

X  ( I ) aA ( 1 1 *x APANO 

SfEP 

131 

92 

OXPEAl-aOXPEAL*  SIN  IAX)  •  gELZ 

STEP 

132 

OYWEAL»UYWEAL*  SIN  (AT)  •  UtL2 

STEP 

133 

ifipnoox.le.u.o)  eo  ro  49 

STEP 

134 

c 

APPLY  X-SPACE  COSINE  OAT A  alNOO* 

SfEP 

135 

OU  212  lai.NPTS 

STEP 

136 

00  212  Oal.NWNOOX 

SftP 

137 

I J2  a  I  •  (NPTS  -0)  *  NPrS 

SfEP 

138 

IF  (NPY.tO.NPTS)  CU ( 1U2)  a  CU(I02>  •  FACIPIJ) 

STEP 

139 

lJlaI*<J-l)»NPT5 

SfEP 

140 

212 

CU(lJl)aCU(lJl)4FACTP(JI 

STEP 

141 

00  213  Jal.NPY 

STEP 

142 

IJ  a  (J-H4NPTS 

SftP 

143 

00  213  lal.NHNOUA 

step 

144 

12aNPr$*l«I 

STtP 

145 

CU(I*lJ)aCU(l*lJ)4FACTP(I) 

SfEP 

146 

2 13 

CU ( 12* I J) »CU  (I2*lU)*FACTR(I) 

SfEP 

147 

C 

UNFOLO  SYPETPIC  FIEU)  FOP  FF T  USE 

SfEP 

148 

*9 

IF  (NPTS.EO.NPY)  (io  TO  50 

SfEP 

149 

00  IS  Jal.NPY 

STEP 

ISO 

00  IS  lai.NPTS 

STtP 

ISl 

IJ  a  I  «NPTS*(J-1) 

SfEP 

152 

IJI  a  I  •  (NPTS-J>*NPTS 

STEP 

1S3 

IS 

CU(lJl)a  CU(IJ) 

STEP 

154 

c  •« 

• 

STEP 

155 

c  • 

stpEhl  intensity  is  calculated  from  the  centepcinc' InTCnSITy 

• 

STEP 

156 

c  • 

OF  THE  fan  F 1EL0  OIS TR18UT ION,  THt  PETHOU  USES  TPE  CENTERLINE 

• 

SftP 

1ST 

c  • 

COEFFICIENT  OF  THE  FFT  FOP  THE  UNFORMALIZED  CENTEPLINE 

* 

step 

158 

c  • 

INTENSITY.  POaCH  CONSEPVATlON  IS  USED  TO  0EF1n£  THE  PLANE  aAV* 

SfEP 

159 

c  • 

NEAP  FIELD  INTENSITY  VALUE.  THE  PATIO  OF  CENTEPLINE  INTENSITY 

• 

step 

160 

c  * 

(FFT)  TO  PEAK  INTENSITY  (PLANE  aAVE)  OtFINCS  S TPEHL  INlbNSifY. 

• 

SfEP 

161 

c  • 

IN  TPIS  ROUTINE.  U  FOREMAN  10  28  74 

• 

SfEP 

162 

c  *< 

• 

step 

163 

so 

IF (PAPTP.EO.O .0 .OP.NWPT . to.  1 ) (»0  TU  9b 

STEP 

164 

X1T0T  a  0. 

STEP 

165 

PI  a  3.14159b 

SfEP 

166 

XPE5H4  a  XPESH44*. 

step 

167 

NOMaiaPTS*NPTS 

SfEP 

168 

00  95  1*1 . nOs 

step 

169 

12  ■  I  •  2 


r  r .  n  n 


XITOT  a  Xirot  •  CuM(12-l)**2  «  CuM(I2)**2 

STEP 

171 

95 

CONTINUE 

SfEP 

1  72 

c 

Xiror  a  INTtUMAL  OK  INTENSITY  (UNNONMALUEO) 

step 

l/J 

c 

CU(1)  CONTAINS  CENTER  LINE  FKf  OK  NtAM  K  ItLO  0 1 S  IH  IriU  T  ION  AK  TEH 

STEP 

It* 

c 

METUHN  FMOM  *•  FOUNT". 

STEP 

ITS 

c 

IhansFOHm  CUMPLtX  r  ItLO  To  FHtUUENLY  SPACE  with  fkt 

STEP 

1  T  6 

96 

CAUL  FOUNT  lCU.NAH.NHO. 1) 

STEP 

177 

IF  (HAPTM.E'J.  O.O.OM.Nmm  T  .EU.  1 1  UO  To  99 

STEP 

1  TO 

ANfcA  a  Pl«HAPTH»»* 

STEP 

1  T9 

AHEASm  ■  ANtA  •  AN£A 

STEP 

1 00 

XlBAH  a  Xiror  /  NUN 

STEP 

101 

AlaMPa  a  x  la AN  •  l  (XMESN**MtSni /ANtA) 

SIEP 

102 

c 

••• 

AldHPa  a  PLANE  aAVE  INTENSITY  (NEAN  F 1ELU) 

SlEP 

103 

NUdSU  a  i9tld  *  NUb 

step 

10* 

X  INOHM  a  AMESHA  /  NOUSU 

SfEP 

10S 

CLIFF  a  (CUM (11  a*ii  •  CUM(2)*«2)  •  xlNOHM 

SIEP 

100 

c 

CLIFF  a  CENTERLINE  INTENSITY  (FAN  FIELD > 

stEP 

1ST 

c 

stnehl  intensity 

SlEP 

108 

SThINT  a  CLIFF  /  (AldMPd*  AHEASU) 

SIEP 

109 

■HITE  (6«l*l  STMlNT 

SIEP 

190 

i« 

FORMAT (///2A.19H  STMENL  INTENSITY  a  .012. S) 

StEP 

191 

99 

MAPTHag.o 

SfEP 

192 

OU«OEL2 

SIEP 

193 

c 

CALCULATE  UElZ  in  EUUIvALEnI  COLLlMATEU  COOMOlNATE  SYSTEM 

STEP 

19* 

IF  (NMEO.EO. 1)  U  TA*UA  T  AN ( AA2/ ANAL) *UA T  AN ( (22Z"0£lZ) //MALI 

SIEP 

19S 

IF  (NMEO.EO. 2)  UT2aUELZ/UA2»(222-OEL2>  ) 

STEP 

190 

IF*nT  a  l 

STEP 

197 

CU(  1  1  *CU  (  l  >*ANP2 

SlEP 

198 

c 

APPLY  PROPAGATION  MATMIX 

StEP 

199 

00  1U0  J»2.NPP1 

SlEP 

200 

Jl  ■  NP2P2-J 

StEP 

201 

00  100  I«1*J 

STEP 

202 

II  a  NP2P2-I 

StEP 

203 

IPNT  a  IPNT«1 

SlEP 

20* 

PHI  a  JIZ  a  APM(2.1PNT) 

SIEP 

20S 

SINP  a  SIN (PHI ) 

STEP 

206 

COSP  a  COS (PHI) 

SIEP 

207 

ACNST  a  ANP2  •  APM(l.IPNT) 

STEP 

208 

COUMM(l)  a  ACNST  •  COSP 

StEP 

209 

COuMM (2)  a  ACNST  •  SINP 

SlEP 

210 

c 

C0UM*ANP2*APH (1. IPN 1 ) »CEAP ( CMPL A ( 0 . . APM ( 2 • IPN  T ) *0  T l ) ) 

STEP 

211 

CU(I«NPTS*(J-ln  ■  CU(l»NPlS*(J«l> 1»CUUM 

SfEP 

212 

IF(I.eu.j)  oo  tu  loa 

STEP 

213 

CU(J«NPTS»(I-1> )  a  CU(J*NPT5»(l-l))*CUUM 

STEP 

21* 

IF (J.E0.NPP1)  00  TO  109 

SIEP 

21S 

CU(l»NPTS«(Jl-l) )  a  CU( I»NPTS»(Jl-U I *CUUM 

STEP 

216 

CU( JI«NPTS»( I-l) ) a  CU  ( Jl  *NP  TS* 1 1”1 ) )»COUM 

SIEP 

217 

IFII.lT.21  00  TO  100 

STEP 

218 

cu(ii»NPTs«(j-in  ■  cu(ii*NP(s»(j-m»cuuM 

StEP 

219 

CUlJ«NPTS«<ll-l> >  a  CU(J«NPTS»< 11-1) >*CUUM 

STEP 

220 

CU(U»NPTS*(Jl-lJI  »  CU(H*NPfS#<JI-lll#CDUM 

SfEP 

221 

CU ( J I *NP T  $• 1 1 1  •  1 ) 1  ■  CU ( Jl »NP i S* ( I l-l >> *COUM 

STEP 

222 

OO  TO  100 

StEP 

223 

100 

IF(I.EQ.nPPI)  00  TO  100 

SlEP 

22* 

CU(1*nPTS*(J1"1I 1  a  CU ( l»NP TS» ( Jt-U ) *CUUM 

SlEP 

22S 

CU(Jl»NPTS*(I-l) 1  a  CU(JI»nPTS»(1-11) »CUUM 

SIEP 

226 

CU(Il*NPIS*(Jl-l> >  ■  CU(Il»NP(S»(Jl-l) ) »CUUM 

StEP 

227 

00  TO  100 

StEP 

228 

109 

IF  t I ,lT .2)  OU  TO  100 

StEP 

229 

CU(U»NPTS*(J-lll  a  CU(ll»NPTS*(J-l) )*COUM 

step 

230 

CU  ( J*NP  TS*  (11*1)  1  a  CU(J»Nt«IS#(ll-l)  )«COUM 

SIEP 

231 

100 

CUNT INUE 

SlEP 

232 

c 

TMANSFOMH  COMPLEX  fielo  TO  A-SPACE  ■ l f h  fft 

SIEP 

233 

CALL  FOUMT(CutNAM.NNOfl) 

SlEP 

23* 

IF  (nmMT.ne.O)  ZU*i* EEP 

SIEP 

238 

IF  ( 1 TH .EU. 0 .OM.NMEO.EU. u 1  MEIUMN 

SfEP 

236 

c 

THANSFOMM  FMUM  EUUiVALENI  COLLIMATED  COOHUINATE  SYSTEM  (AC.YC) 

SfEP 

237 

c 

SACK  TO  MEAL  COOMOlNATE  SYSTEM  (A.Y). 

SIEP 

238 

■F  a  «0*USUHT ( l . • ( 222/2MAL) **£ ) 

SfEP 

239 

TNZ2  a  Z2Z/2MAL 

StEP 

2*0 

FFaTN22/(MF»aF) 

SfEP 

2*1 

00  *2  Jal.NPY 

StEP 

2*2 

249 


rsu  ■  x(ji»*2 

SIEP 

243 

DO  42  lal.NpTS 

STEP 

244 

Idl  ■  I»U-l)»NI»TS 

STtP 

245 

U12  •  2  •  Idl 

SItP 

246 

ldl2"l  •  IdU  -  1 

STEP 

247 

PHI  «  -<A<!)«*2  ♦  TSOI  *ff 

STEP 

248 

SlNP  a  SIN  (PHI) 

SIEP 

249 

CUSP  •  COSl PHI) 

STEP 

2»0 

CUHS  ■  CU«(ldI2Hl) 

SIEP 

251 

CUH<ldl2Ml)  a  (CUHS*COSP  -  CUH(ldl2)aslNPI/WP 

STEP 

252 

42 

CUH ( Idl2>  a  (CUHS»SINP  •  CUH ( Id  12 1  *CQSP t  /Vp 

STEP 

253 

XAPANOawF/Wl 

StEP 

254 

N«t<3  a  0 

SIEP 

255 

*H 1 Tt  (6.5221  AAPANO 

STEP 

256 

622 

FOMNAT  I/J7H  TH €  NaGNIFlLAUON  UF  TMfc  MELO  IS  .F1U.6/I 

SIEP 

257 

PC  TURN 

StEP 

258 

12 

aHITt  (6.91 

StEP 

259 

9 

FOMMAi (Z//.33H  invalid  v  an  i able,  hesh  heoion  «/.s3h  subnouti 

SlEP 

260 

iNfe  STEP  COUNT1N01N6  01 TH  CONSTANT  MESH  ./.6SH  NOTE  POSSIBLE  EXP 

SftP 

261 

IAN5I0N  OF  THE  BEAN  OUTSIDE  THE  CALC.  NE610N  .///) 

StEP 

262 

IF(i*l 

StEP 

263 

NHEOai) 

StEP 

264 

00  TO  1002 

StEP 

265 

ENO 

StEP 

266 

34 .  SUBROUTINE  TBLOOM 

a.  Purpose  --  This  subroutine,  shown  in  Figure  68,  is  used  to  model 
four  types  of  thermal  blooming  which  may  be  seen  by  a  beam  as  it  propagates 
through  an  absorptive  medium. 

The  four  types  are: 


1. 

Tranverse 

2. 

Axial 

3. 

Free  convective 

4. 

Transient 

b.  Relevant  formalism  —  Thermal  blooming  arises  as  a  consequence  of 
the  absorption  of  laser  radiation  by  the  transmitting  gas.  The  absorbed  radi¬ 
ation  heats  the  gas  and  consequently  changes  its  refractive  index.  These 
variations  in  the  index  of  refraction  induce  phase  changes  in  the  propagated 
beam.  Phase  changes  produced  by  thermal  blooming  can  result  in  beam  diver¬ 
gence,  which  overloads  apertures  and  provides  a  source  of  high  energy  feed¬ 
back.  Thermal  blooming  also  degrades  beam  quality.  Thermal  blooming  models 
are  available  in  the  SOQ  library  to  describe  the  impact  on  the  beam  phase  and 
amplitude  produced  when  thermal  blooming  occurs  in  (1)  a  transverse  flow 
field,  (2)  an  axial  flow  field,  (3)  a  free  convective  flow  field,  and  (4) 
transient  conditions  with  no  external  flow. 


250 


TBLOOM.  50  — 


TBLOOM.  59  — 


TBLOOM.  66  — — 


TBLOOM.  84  — •— 


TBLOOM.  118— 


TBLOOM.  196 


TBLOOM.  241 


Figure  68.  Subroutine  TBLOOM  flow  chart. 


TBLOOM.  58 


TBLOOM.  64 


TBLOOM.  79 


TBLOOM.  117 


TBLOOM.  195 


TBLOOM.  240 


TBLOOM.  246 
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Figure  69  schematically  demonstrates  the  procedure  used  to  modify  the 
complex  field,  U(x,y) ,  as  it  is  propagated  through  a  thermal  blooming  gain 
phase  segment  within  the  SOQ  code. 


Figure  69.  Illustration  of  thermal  blooming  model. 

As  the  beam  is  propagated  a  distance  AL  through  the  medium,  it  is  con¬ 
tinuously  interacting  with  that  medium.  By  requiring  that  the  effect  is 
small,  the  integrated  effect  can  be  approximated  by  a  finite  number  of  dis¬ 
crete  steps  in  the  following  manner: 

Assume  each  step  is  of  length  A L  and  that  the  effect  of  such  a  step  is 
approximated  by  a  vacuum  propagation  to  the  center  (AL/2) ,  application  of  the 
appropriate  transmission  function  t(x,y,I),  followed  by  subsequent  vacuum 
propagation  of  field  the  remaining  distance  (AL/2) . 

The  transmission  function  t(x,y,AL,T(x,y)  c*n  be  assumed  to  be  of  the  form 

t(x,y,I)  «  exp|-~  -iAij  [224) 

where  a  is  the  absorptivity  of  the  medium  and  A$  can  be  written 


Employing  the  usual  Gladstone-Dale  relationship  to  approximate  the  index 

RT 

n,  (n  *  1+pC)  and  the  equation  of  state  for  an  ideal  gas  (P  =  -^rp)  ,  the 
expression  for  A<t  becomes  (assuming  constant  pressure) 


AO 


f  M  f 


dz  5T  (x.y.t) 


(226) 


5T  represents  the  temperature  variation  across  the  beam  as  a  result  of 
one  of  the  four  types  of  thermal  blooming.  It  is  found  in  the  following  man¬ 
ner: 


(1)  Transverse  blooming  --  It  is  assumed  that  the  wind  is  blowing 
with  speed  V_  (con/scan)  from  the  negative  x-direction.  The  resulting  temper¬ 
ature  variation  is: 


5T 


T 


I  (x'.y.t)  dx 


(227) 


where  I  is  the  intensity  of  the  beam. 

(2)  Axial  blooming  —  It  is  assumed  that  the  wind  blows  in  the 
same  direction  the  beam  is  traveling  with  speed  V  (cm/sec)  resulting  in 


6T 


ax 


pc  V 


ax 


I 


I  (x,y,:)dc 


(228) 


(3)  Free  convection  --  The  temperature  variation  due  to  thermal 
gradients  caused  by  absorption  is: 


(229) 


where 


P(Z')  being  the  total  power  in  the  beam  at  Z'  and  g,  the  acceleration  due  to 
gravity. 

(4')  Transient  —  Finally,  in  the  process  of  establishing  free 
convection,  the  beam  has  a  residence  time  T(-sec)  during  which  the  temperature 
variation  is 


5T 


tran 


*  I 


c .  Fortran 
Argument  List 


ALFA 

CP 

T 

RHO 


ZLEN 

NSTEPS 


INPT 

NPROP 

AXIAL 

DT 


-  Absorptivity  of  the  medium  Ccm 

-  Specific  heat  (J/g-K) 

-  Temperature  (K) 

-  (1)  if  RH0<1 ,  it  is  the  density  (g/cmJ)  used  for 
free  convection 

(2)  if  RH0>1 ,  it  is  the  transverse  velocity 

-  Total  length  of  the  blooming  medium 

-  The  number  of  steps  required  to  adequately  represent 
thermal  blooming  over  a  distance  ZLEN.  Phase  per  step 
shift  usually  kept  <_  g  /3 

-  Flag  for  intermediate  plots 

-  Same  as  NSTE  in  cavity 

-  Axial  velocity  (cm/sec)  and  is  >  0 

-  Residency  time  for  transient  blooming 


None  of  the  above  parameters  is  redefined  by  this  subroutine. 
Commons : 


C230) 


The  variables  in  common  which  are  modified  are: 

Cl)  CU:  the  effect  of  the  blooming  is  applied  to  CD 

(2)  CFIL:  due  to  its  equivalence  with  the  PH  and  W  arrays,  it  is  modi¬ 
fied  when  they  are  defined. 
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Computer  printouts  of  subroutine  TB100M  follow. 


SUBROUTINE  T BLOOM  76/l~6  0PT=1  FIN  4.6+4S2  04/27/79  12.23.47 


Subroutine  r hluom (  alf a .cp .  <  .RHo.2LtN,NSTtP5.  inpt.nphop.aa1al.ot>  iulooh 

ttvEL  2.  CU.CUH,«fK«  IBLOOM 

COMNON/MELT/CU  (  1636*1  .CF  iL  i  165  12)  .*<1281  .aL.NPTS.NPr.UHA.UHr  (BLOO  M 

CUHHUH/aAY/WNOa.  NMtG.MAP  !h  (BLOOM 

dimEnsIun  a  ( i6ja*>  .phusjba)  (bloom 

HtAL  CUH» 32 (68)  I  BLOOM 

HEAL  l SAT  TBLOOM 

COMPLtA  CU.CFIL  IBLOOM 

EQUIVALENCE  ICUUI  .  CUHllll  IBLOOM 

•  •••••••••••••••••«  ••••«••••  •••••••••••••••••••••  I  BLOOM 

This  VERSION  OF  (bLOOM  h as  BEEN  HOO IF IEU  TO  (BLOOM 

ACCOMOOATE  AAlAL  BLOOMING  CALCULATIONS  PER  HHASfc  1  BLOOM 

TwU“Thm££  PROPOSAL  U  TORGHAM  6/  76  (BLOOM 

•••••••••••••••••A*  •••••••••  •*•**»••*«»*•••«••••  I BLOOM 

This  routine  HAS  been  FuMThEh  hoOIFIEu  (0  ACCOMOOA  TE  T  HANS  TEN I  Tb LOOM 

THERMAL  BLOOMING  CALCULATIONS,  transient  TH.8L.  IS  THE  PHASE  TBLOOM 

CHANGE  WHICH  n£SoL  f  S  FROM  ENERGY  AOOI I  ION  TO  THE  MEDIUM  (BLOOM 

■  I fH  NO  FORCED  OH  FREE  CUNvEcIlUN  .  BE  SOLVE . .  (BLOOM 

MHO  •  CP  •  OTEMP/OTIME  «  ALPHA  •  IT X.T.2)  (BLOOM 

AND  FINO  phase  Change  from  ihe  line aria to  Indea  Change...  (BLOOM 

OELTA  N  a  ON/OTEMP  *UElTA  TEMP  (B LOOM 

FoRGhAM  1 A  /  IS  //A  TBLOOM 

TBLOOM 

•  «••••••«•••••••«••  ...»  •••••  I  BLOOM 

EOUlVALENCE  <*<  I  I.CFILT  l  I(.(PH(  I  > *CF IL (8193) )  (BLOOM 

NSTaNPHOP  t BLOOM 

May  TBLOOM 

IOUT  a  1  (BLOOM 

IF  (NPROP.EU.S.OR.NPROP.tU.S/  IO«f  »  0  (BLOOM 

IF  (NPROP.EU.JI  NSTaB  TBLOOM 

WHITE (6.S)  ALFA. CP. T.  iLtN.NSItPS  (BLOOM 

5  FORMAT ( UUMOF  IELU  has  entered  SUBSYSTEM  I  BLOOM  -  STEAOY  STATE  THEM  (BLOOM 

ARAL  BLOOMING  MEDIUM  /2  TBLOOM 

A5A.2SHABSORPT ION  COEFFICIENT  a  .G12.S.5H  CM-1/2SA.  (BLOOM 

AIBhSPECIFIC  HEAT. CP  »  .G12.5.TH  J/GM-K/29A.  (BLOOM 

AlAHTCMPEHATOHE  a  .G12.5. TH  OEG.  K/25A.  TBLOOM 

a  12m thickness  •  .012.5 .sh  cm/2sa.  (bloom 

A 1 SMNO .  ELEMENTS  *  .131  TBLOOM 

iFcor.GT.a.ui  go  to  too  (bloom 

C  ••••••••  OT  GREATER  I  Han  y.g  INDICATES  TRANSIENT  bluming  •**••••••  ( BLOOM 

IFIAAIL  .GT.U.i  aRlTE (6.3901 A A  1 AL  TBLOOM 

596  FORMAT I2SA.I8HAA1AL  VELOCITY  a  .GU.S.  BH  CM/SEC  )  (BLOOM 

IFfAAlAL  .GT.  V.(  GO  TO  TOU  (BLOOM 

C  •*•••*•*  AAlAL  a  AAlAL  VELOHIY  ••••  I  BLOOM 

IF  (MHO  .LT.  l.(  wrI (E (6.6)  MHO  (BLOOM 

6  FORMAT (2SA.I0H0ENSKY  a  .G12.S.7H  GM/CM3I  TBLOOM 

IF  (WHO  .GT.  1.)  WHITEI6.T)  MHO  (BLOOM 

7  FORMAT (25A. 2 JMTRANSVEHSE  VELOCITY  a  .G12.5.7H  CM/SEC)  (BLOOM 

700  0CL2  •  2LEn/NS7£PS  (BLOOM 

GDC  a  .223  (BLOOM 

MAO  a  1.  (BLOOM 

2LAST  a  o.  (BLOOM 

2 NOW  a  0.  TBLOOM 

AVELAG  ■  0.  (BLOOM 

RMS To(  ■  0.  (BLOOM 

PH  TOT  a  o.  (BLOOM 

PREU  »  EAP ( «ALFA*UEL2/2. 0)  TBLOOM 

C  •••  PROPAGATE  TO  FIRST  ELEMENT  TBLOOM 

C  IF  (  NPROP.GE.*  >  CALL  CUME (UEL2/2..0.M)  TBLOOM 

IF  (  NPROP.gE.*  )  TBLOOM 

1CALL  S  T£P ( OEL2/2*  »MAU»  *  1 . « 1 *NST  *  u . J t 0 . . U . . H, 1 )  TBLOOM 

IF  (  NPHOP.lE.J  >  TBLOOM 

(CALL  STEP (0EL2/2.»hAD.. I . .nsT .  U.U »y . . U. .M. 0 >  (BLOOM 

00  luO  Ka 1 .NS (EPS  (BLOOM 

KMIaA-I  (BLOOM 


2 

3 

« 

5 

6 
T 
a 

9 

10 

11 

12 
13 
1* 

15 

16 
17 
IB 

19 

20 
21 
22 
23 
2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 
36 

35 

36 

37 

38 

39 
60 
61 
62 
63 
66 

65 

66 

67 

68 
69 

50 

51 

52 

53 
56 

55 

56 

57 

58 

59 

60 
61 
62 
63 
66 

65 

66 
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ooonooooo 


1./»n0b**2 


*( 

«( 

ia  pt 


PT  a 


OX  a  A(2>  *>111 
oxsu  •  oa 
OCAL  ■  NPTS»UX 
xFaCT  a  1. 

IF  INREG.tU.l  .OR.NHEB.EQ. 21  AFACr 
COMPUTE  PObER  UENS1TY 
nohbnpts»npy 
PT  «  0. 

oo  lu  j«i.NOb 

I  I  >  Cui  t  )  *CUNUG  (CU  (  1  ))*AFaCT 
I  )  «  <COW(2«t-l>»«2  ♦  LUH(2«l)a#2)  *XF ACT 
PT»B(  i  ) 

PT»OASO»MP tS/NMY 

IF (OT. or. 0.01  00  TO  220 

C  •••  TEST  or  ro  DETERMINE  IF  TRANSIENT  GLOOMING  REQUIRED 
IF  (  AA I AC  .OT.  0.  >  00  10  10 

C  »»•  TEST  AXIAL  ro  0ETEHM1NE  IF  AXIAL  GLOOMING  IS  HEQOIREO 
«l  I  WHO 
IF1RH0  .LT.  i.O) 

AVT  b  (98U.66S«PT*A(.FA/(RMU»CP#T)  )*•(!. /3.) 

CAPK  a  6.2aJl85J«ALFA»OEL2*OCAL/(RL»CP»T*VT>»GOC 
IF(INPT.EU.O)  00  TO  IS 
ifimouikmi.inpti .ne.oigo  ro  is 

R«ITE(6.14)K.PT,VT,CAPK 

14  FORMAT ( 46H l  field  INCIDENT  UPON  THERMAL  dL DOMING  ELEMENT . 12. OH  POM 
lEMa  .G12.5.2JH  TRANSVERSE  VELOCITY  a  .012. S. 1SHCM/S  CAPK  a  ,012 
l.S) 

N  a  u 
UMAX  a  <j. 

CALL  OUTPUT (CU. NPY.NPTS. A. N.UMAA,. TRUE. ..FALSE. ..FALSE.) 

15  PMAX  a  -l.E/ 

MAIST2  a  25 

19  CONTINUE 

00  2a  J*1 ,NPY 
SUM  a  0. 

Jla(u-1)»NPTS 
00  20  lal.NPTS 
JJ« I «U1 

SUM  a  SUM«a(  JJ) 

PH(  JJ)  a  CAPK«SUM/NPTS 

CUI  JJ)  ■  CU(  JJ)*CMPLA<COS(PH<  JJ))»SIN(PH(  JJ) > ) »PRED 

20  IF(Ph(  JJ) ,GT .PMAA) PMAxapH I  JJ) 

IF(lNPT.tQ.u)  GO  TO  JS 

IF (MOO ( KM 1 , 1 nPT ) .NE . 0 ) GO  TO  JS 
■RITE (O. J4>  K .PMAA 

34  F0MMAT(S4Hl  F ItLO  AFTER  MOuIFICATION  GY  THERMAL  GLOOMING  ELEMENT.I 
12.J2H  MAXIMUM  phase  SHIFT  INDUCED  WAS.G12.S.3M  RA01ANS) 

N  ■  0 

UMAX  a  0. 

CALL  OUTPUT (CU.NPY .NPTS .A .N. UMAX. . TRUE .. .FALSE . . .FALSE. > 

GU  TU  JS 


THIS  SECTION  IS  DESIGNED  10  CALCULATE  PHASE  CHANGE  OF  THE'bEAM 
due  ro  an  axial  velocity  component,  the  math  requires  the  solan 

OF  The  ENERGY  EUUATION  FOR  A  1 EMP  RISE  PARALLEL  TO  THE  MEAN  AXIS. 
IN  dHAT  FOLLOMS.  CAPKAX  IS  A  DISTORTION  NUMBER  OF  SORTS.  AND 
THE  PHASE  CHANGE  AT  EACH  MESH  POINT  RESULTS  FROM  THE  PMOOUC T 
OF  CAPK A A  •  INTENSITY  "M».  THE  FIELD  IS  MODIFIED  BY  THE  PHASE 
CHANGE  INOOCEU.ANO  The  POMtR  LOST  TO  HEATING  THE  MEDIUM  •»PREDM. 

IB  CAPKAX  ■  6*20 J 1GS3*ALF A*GUC  / (ML*CP*AA l AL» 1*2.) 

2N0M  a  2NDM  *  0EL2 
IF  (INPT  .ED.  0  )  GO  TU  SO 

IF (MuO ( KM l . InP T ) .NE . a ) GO  To  so 
aRl TE(6.4S)k.pt.aaial.Capkaa 

•RITE  (6.46)  2N0a 

45  FORMAT (46HI  FIElO  INCIDENT  UPON  thermal  BLOOMING  ELEMENT.I2.dH  POM 

IERs  . G12.S.23H  AXIAL  vELUCITY  ■  .G12.S. 15HCH/S  CAPKKAxa  . 

2  G12.S) 

46  FORMAT (1UA.19HAA I AL  PUS I  I  ION  a  .GI2.S.JH  CM) 

N  a  0 

UMAX  a  V. 


T BLOOM 

67 

T BLOOM 

6B 

T BLOOM 

69 

1 BLOOM 

TO 

(BLOOM 

T 1 

T BLOOM 

T2 

I  BLOOM 

T3 

1 BLOOM 

74 

T BLOOM 

TS 

T BLOOM 

T6 

1  BLOOM 

77 

T BLOOM 

T8 

I  BLOOM 

79 

f BLOOM 

ao 

t BLOOM 

ai 

T BLOOM 

as 

T BLOOM 

aa 

Tbloom 

84 

f BLOOM 

as 

(BLOOM 

36 

(BLOOM 

87 

TBLOOM 

as 

TBLOOM 

89 

Tbloom 

90 

tbloom 

91 

TBLOOM 

92 

Tbloom 

93 

TBLOOM 

94 

'TBLOOM 

95 

TBLOOM 

96 

Tbloom 

97 

TBLOOM 

98 

Tbloom 

99 

TBLOOM 

100 

tbloom 

101 

tbloom 

102 

TBLOOM 

103 

Tbloom 

104 

TBLOOM 

10S 

TBLOOM 

106 

t BLOOM 

107 

TBLOOM 

108 

[BLOOM 

1 09 

TBLOOM 

no 

TBLOOM 

ui 

TBLOOM 

112 

Tbloom 

113 

TBLOOM 

114 

(BLOOM 

ns 

TBLOOM 

116 

( BLOOM 

117 

tbloom 

118 

(BLOOM 

119 

(BLOOM 

120 

t  BLOOM 

121 

Tbloom 

122 

tbloom 

123 

i BLOOM 

124 

TBLOOM 

125 

TBLOOM 

126 

I  BLOOM 

127 

t BLOOM 

128 

1  BLOOM 

129 

TB(  OOM 

130 

(BLOOM 

131 

1  BLOOM 

132 

Tbloom 

133 

1  BLOOM 

134 

TBLOOM 

135 

TBLOOM 

136 

(BLOOM 

137 

TBLOOM 

138 
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noonn  no  o  nonnonnno  or'onno  nnoono  n  nnono  on 


call  output (Co. npy.npts. a, n.umaa.. (hoe. ..false. ..false.) 

1  GLOOM 

139 

(BLOOM 

1*0 

t  BLOOM 

141 

*0 

PMAAAA  •-!.£* 7 

T  BLOOM 

142 

EHAIST  a  S.O 

t BLOOM 

143 

PHBAR  a  0.4 

1  GLOOM 

144 

PHSQ  a  0.0 

f BLOOM 

14S 

00  200  J  a  l.NPY 

TBLOOM 

14* 

J1*(J-U*NPTS 

T  BLOOM 

147 

00  200  I  a  l.NPTS 

TBLOOM 

148 

AHG  a  X ( I >  •  All)  *  A(J)*A1J) 

TBLOOM 

149 

OA1ST2  a  EtfAIST  •  EaAIST 

t BLOOM 

ISO 

IF  (AHG  .GE.  HA1ST2  1  AHG  a  0 . 0 

TBLOOM 

1S1 

PHGAUS  a  CAPKAA  *  <PT  /  J. 141S9I • ( 1 ./*AIS f2)  • (EAP ( (“ARG  •  2.)/ 

TBLOOM 

1S2 

X  WAI5T2))  •  ZLAST  *»2> 

TBLOOM 

153 

KK  a  1  •  J1 

TBLOOM 

154 

Ph IKK)  a  CAPA A A  •  a (KK ) • ( 2NOH**2  -2LAST»a2) 

TBLOOM 

155 

CU (KK)  a  CU(KK)  •  CMPLA (COS (PH (KK) ) .S1N(PH (KK) ) 1  •  PHC0 

TBLOOM 

158 

DELTA  a  PhGAuS  -  PH(KK) 

TBLOOM 

157 

PHBAH  a  PHBAH  «  PH(KK) 

TBLOOM 

15B 

PHSO  a  PHSU  *  PH (KK )  •  PH (KK ) 

t BLOOM 

159 

IF  (J  .HE.  1  «  NPY/2  )  GO  TO  181 
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t  BLOOM 

162 

1798 

CONTINUE 
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163 

180 

FUHHAT (SA.SG12.S) 

(BLOOM 

164 

181 

CONTINUE 

1  BLOOM 

165 

£00 

IF  (PH(KK)  ,GT.  PMAAAA)  PHaXAA  a  Ph(KK) 

TBLOOM 

166 

(BLOOM 

167 

HMSPHS  a  HMS  phase  OlSTUHliUN  FOR  OtLZ  STEP 

(BLOOM 

16B 

AVELAG  a  AVERAGE  PHASE  LAG  FDH  THERMAL  BLOOMING  SEGMENT 

TBLOOM 

169 

PhrtAH l  a  AVERAGE  PHASE  LAG  FUH  0EL2  STEP 

(BLOOM 

170 

PmSTOT  a  TOTAL  RMS  PHASt  F UN  THERMAL  8LOOMING  SEGMENT 

(BLOOM 

171 

PhTUT  a  TUTAL  maximum  PHASE  LAG  FOR  THERMAL  8LOOOMING  SEGMENT 

(BLOOM 

172 

ime  above  sistisucal  parameters  ahe  Included  as  diagwusucs 

I  BLOOM 

173 

r BLOOM 

1  74 

HHSPhS  a  SUHK  PHSO  -  (  (  PHBAM«a£) / (NPY»NP1S) ) ) 

1  BLOOM 

1  75 

rurPTs  »  HPT  •  npis 

(BLOOM 

1  76 

RMSPhS  »  HHSPHS  /  SUHT ( TO  1 P 1 S  ) 

TBLOOM 
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PHBAH 1  a  PhBAH  /  (r.PYaNPTS) 

1  BLOOM 

178 

AVELAG  a  AVELAG  «  PHBAH l 

t  BLOOM 

179 

RMS  TOT  »  SORT (RMS  TOT **2  ♦  RMSPHS»»£) 

(BLOOM 

1B0 

PhTOT  a  PhTOT  ♦  PMaAAa 

(BLOOM 
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ZLAST  a  ZNOa 

(BLOOM 
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IF  (INPT  ,£D.  0)  GU  TU  JS 

1  BLOOM 
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lF(MOU(KMltINPri .NE.OIGU  (u  JS 

(BLOOM 
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HR  1 TE  (6.33)  K. PMAAAA. AXIAL 

f BLOOM 
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•RITE  (o.A9)  AVELAG. RMSTuT.Ph(OT 

(BLOOM 
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33 

format  ( £2H 1  FIELD  AFTER  AaIAL  TB. i£ . SHPMAAa .G12.S.4HVAA* ,612.5) 
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,  t  BLOOM 
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AG12.S.26H  total  Phase  CHANGt  MAX.  a,G12.S) 
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WHITE  (6.44)  CAPKAA 

(BLOOM 
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44 

FUHMAfdOA.lOH  CAPKAA  a  .612. S) 

(BLOOM 

191 

N  a  0 

1  BLOOM 

192 

UMAX  a  0. 

TBLOOM 

193 

call  OUTPUT (CO*NPY«NPTS,A,N.uMaA..THUE.» .FALSE.. .FALSE.) 

( BLOOM 
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GU  TO  JS 

TBLOOM 

195 

# 

(BLOOM 

196 

TRANSIENT  (h£RMAL  BLOOMING  CALCULA T IONS ' ARE  00NE  IN  THIS  SECTION. 

TBLOOM 

197 

energy  Equation  is  solved  foh  phase  change  as  a  function  of 

(BLOOM 

198 
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TBLOOM 

199 

• 

TBLOOM 

200 
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TBLOOM 

201 
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202 
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209 

A. 12) 

(BLOOM 
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N  a  0 

r bloom 

411 

UMAX  a  0.0 

tBLOON 

412 

CALL  OUTPUT  (CU.NPY.NPTS.A.N.UMAA.  .THuE... FALSE.  ..FALSE.) 

1  BLOOM 
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410 

NBH11E  a  *py  /  J. 

tBLOON 

414 

4LAST  a  4nO* 

TBLOON 

415 

POaCH  a  O.o 

tBLOON 

416 
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TBLOON 
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CONTINUE 

TBLOON 
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IF  (X.Lt.NSTtPS)  CALL  CUHC(0kL4.U.M) 

tBLOON 
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243 

c 

100 
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TBLOON 

24* 
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IF  (K.eU.HSTCPSl 

tBLOON 
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I  CALL  STCP(UClZ/4..HAO..1..1.N5T.10u(.0.0..0..H.1) 

TBLOON 

246 

hctuhn 

tBLOON 
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ENO 

TBLOON 

24* 

35.  SUBROUTINE  THERML 

a.  Purpose  --  Since  uncooled  mirror  glass  has  such  a  low  coefficient 
of  thermal  expansion,  the  mirTor  surface  heats  up  as  the  beam  hits  it,  thus 
heating  up  the  surrounding  boundary  layer  of  air.  Subroutine  THERML,  shown  in 
Figure  70,  models  the  phase  change  impressed  on  the  beam  due  to  thermal 
gradients  in  the  boundary  layer  of  air. 

b.  Relevant  formalism  --  The  theory  of  this  phenomenon  was  developed 
by  Humphreys  and  Wick  (Ref.  15)  of  AFWL. 


IS.  Humphreys,  W.  W.  and  R.  V.  Wick,  "Change  in  Optical  Path  Length  Near  a 
Hot  Mirror  Surface,"  Laser  Digest,  AFWL-TR-7S-140,  1975,  p.  9. 


THERML.  36  — 
THERML.  48 


THERML.  58  — 
THERML.  81 


THERML.  89  — 
THERML.  123 


Figure  70.  Subroutine  THERML  organization. 

Following  Humphreys  and  Wick,  assume  that  the  times  of  interest  are 
short  enough  to  consider  the  mirror  to  be  a  semi-infinite  slab.  From  the 
theory  of  heat  conduction  the  time  for  heat  to  traverse  a  length  L  is 
t  *  L^/o.  Thus,  for  mirrors  of  thickness  L,  the  time  during  which  the  mirror 
acts  like  a  semi-infinite  slab  is  <<L*:/a.  Assume  also  that  for  these  times 
one  can  neglect  natural  convective  cooling.  Therefore,  the  air  can  also  be 
modeled  as  a  semi-infinite  slab.  The  one-dimensional  heat  equation  is  then 
assumed  to  apply  for  both  the  mirror  and  the  air: 
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Common  variable  altered: 

CU  =  the  field  is  modified  by  the  boundary  layer 
temperature  gradients. 

Subroutines  called:  OUTPUT 

where  the  coordinates  are  seen  in  Figure  71. 


Figure  71.  One-dimension  heat  diagram  of  mirror  and  air. 


Initially,  both  the  air  and  the  mirror  are  at  the  same  temperature  T 


T  (x  0)  .  T  -  T  (x  0) 
mm  o  ci  3. 


(232) 


For  the  times  considered,  the  heat  does  not  have  time  to  diffuse  to  the  back 
boundary  of  either  the  mirror  or  the  air.  This  boundary  condition  can  be 
written 


T  (®,t) 

m 


T 


o 


Ta  <-,« 


C233) 


The  air  and  the  mirror  are  assumed  to  maintain  the  same  temperature  at  their 
joint  boundary  so 


T  (O.t)  *  T  (0,t) 

m  a 


(234) 


The  remaining  condition  to  be  applied  is  that  of  heat  balance  at  the  joint 
boundary.  By  Fourier's  law 


X  a  0 
m 


3  a  I 


C  235") 


where  a  is  the  absorptivity  of  the  mirror.  Similarly  using  Fourier's  law  at 
the  air  boundary 


^a 

a  x  =0 
a 

By  combining  these  two  equations,  the  joint  heat  balance  equation  at  the 
boundary  becomes: 


ml  x  =  0 
m 


Since  both  the  media  obey  the  same  form  of  equation,  consider  the  solution 
of  the  following  equation: 


3'T  .  1  VT 

,2  a  it 


Finding  the  Laplace  Transform  of  the  above  equation  gives 


-1  =  i|-T  (x,o)  *  sT  (x,s)j 


where , 


T  (x,s) 


J  dti"stT(x,t 


Noting  that  T(x,0)  -  Tq  for  both  the  mirror  and  the  boundary  layer,  one  can 
rewrite  this  as 


4[t(x,s)  -  li]  -  |  *(T(x,s)  -  ^ 


s  I  a 
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which  integrates  to  give 


T(x,s) 


A(s) 


B(s)e 


(241) 


The  boundary  condition  for  x  -*■  *  implies  that  A  =  0  for  both  media. 
Therefore 


T 

T(x,s)  -  -| 


B(s) 


x 


(242) 


To  proceed  further,  it  is  necessary  to  determine  B(s).  This  is  done  using  the 
joint  boundary  conditions.  Recall  that 


3T 


-k 


m 


m  3x 


m 


x  =0 
m 


3T 


m  ax 
a  a 


*  al 


x  *0 
a 


Assuming  (al)  to  be  constant  in  time,  this  transforms  to 


3T 

v  -S. 
m 


m 


-k 


3T 

_ a 

a  3x_ 


x  *0 
m 


a 


ol 

s 


(243) 


but 


3T  ,  , 

17 


x*0 


-4 


B(s 


)el| 


x*0 


(244) 
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Therefore 


Recall  that  at  x  *  0,  T  (0,t)  =  T  (0,t).  This  implies  that  B  (s) 

m  3.  n* 

Therefore 


B 

a 


The  equation  for  the 


al  I 

sTs  k  h 

m  +  _ a 

m  ^a 

air  to  be  back-transformed 


T 

a 


s) 


-s 


e 

s  s 


is  therefore 


'.'ote  that  T  (x  ,t)  obevs  a  similar  equation  with  the  a  and  the 
mm 

interchanged.  Recall  the  following  Laplace  Transform  theorems: 


and 


(245) 

a  B  CS)  . 
a 

(246) 

(247) 

subscripts 

(248) 

(249) 
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1 


The  equation  for  T  (x  ,t)  is  therefore 

S,  3 


T  (X  ,t)  -T  *  r— 
a  a  o  km 


*1 _  f 

ka  J 


or 


a  /a 
m  a 


x 

7  4a  t' 


dte 


/  W  t' 


(250) 


lTa  fxa'C)  3  Ta  (xa’tJ  *  To 
al 


-  x  /  4a  t 
a  a 


~  km  |  ka  2/  t  e 

/r  /r  7 

m  a 


-  erfc 

✓  a 

a 


l2'V 


(251) 


The  phase  change  in  the  beam  induced  by  this  variation  in  temperature  is 
given  by 

4 /a  t 


A0  (x.y.I)  =  2[i2]  /  1  ^Ta(dxa) 


a/ 


(2S2) 


The  factor  of  2  is  due  to  the  fact  that  the  beam  passes  through  the  boundary 
layer  twice.  The  limit  on  the  integral  is  seen  to  be  the  practical  point  at 
which  the  variation  in  temperature  becomes  negligible.  This  limit  is  impor¬ 
tant  to  estimate  since  the  integral  is  to  be  done  numerically. 

As  in  TBLOOM,  dn/dt  is  found  by  the  Gladstone-Dale  law 

N  3  1+  oC  (253) 


and  the  equation  of  state  of  a  perfect  gas 
MP 

0  3  ST 


(254) 
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at  constant  pressure 


dn  -oC 

dt  3  T~  C255D 


It  is  assumed  that  the  effect  is  small  enough  that  the  integral  may  be 
approximated  by  a  finite  number  of  steps.  Four  steps  are  chosen  here. 

c.  Fortran 

Argument  List 

CONMIR  »  mirror  thermal  conductivity 
CONGAS  «  boundary  layer  thermal  conductivity 
ALPHAM  =  mirror  diffusivity 
ALPHAG  a  boundary  layer  diffusivity 
RHOGAS  =  boundary  layer  density 
REFMIR  =  mirror  reflectivity 
TAU  a  transient  time 
TIN  =  temperature 
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WM  I  TE  (  b  t  9  I  ALHMAM.  COMM  IM  <  AlPHAU  ,  CONI.  AS  •  RHOOAS  •  T  AU . T l N  t  HE?  M l H  f  MERML 
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YYalK-1)  •  OA  »  DA/2.  fMERML 

00  ADO  I  a  l.NPTS  TMERML 

TOTN  a  0.0  fMERML 

IJ  a  I  ♦  J  TMERML 

XXa  < l-l )  •  OA  *  DA/2.  fMERML 


25 

26 

27 

28 

29 
JO 
31 
J2 
33 
3a 
JS 
36 
3/ 

30 
39 
AO 
Al 
A2 
A3 
A4 
AS 
A6 
At 
A0 
A9 

50 

51 

52 

53 
SA 
SS 
SO 
ST 
S0 

59 

60 
61 
62 
63 

6A 

65 

66 
6  T 
68 
69 
TO 
T 1 
T2 
T3 
TA 
TS 
T6 
T7 
78 
T9 
00 
81 
82 
83 
04 
05 
06 
07 
88 
09 

90 

91 

92 

93 
9A 

95 

96 

97 
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c 

May  a  CUI1J)  •  CON«jG(CU(lU)  ) 

TmERML 

90 

Xl AY  a  CU«U«lJ-l)*a*  •  CUH(*«U)4a* 

TMtRML 

99 

00  3*5  MM  a  l.N*l 

fNERMt 

100 

*BL»(MM  -  ll«Oi 

TMtRML 

101 

ARG1  a  -Cl  •  *8L  •  ZBL 

TNERNt 

10* 

AMO*  a  C*  •  *BL 

TMtRML 

103 

F*  a  EMFCl  AMO*  ) 

tMEMML 

104 

Ofc.LT  a  XlAY  •  C4  •  f * 

IMtHMt 

105 

TOTN  a  TOTN  •  0fcLT*ONOT»O* 

TMtRML 

106 

U> 

IV 

I/I 

OMHlAY  a— TOTN  •  *N  •*. 

TMtRML 

107 

c 

IF ( INMT  .£U.  01  00  TO  330 

TMtRML 

ioe 

IF(0RhIXY.lT.81GRmI)  00  TO  330 

TMtRML 

109 

BIGPmI  a  OMHIXY 

inerml 

iio 

XlMAA  a  X1XY 

f M£RML 

111 

XMAA  ■  XX 

TMtRML 

112 

YMAA  a  YY 

t MtRML 

113 

OEL  T MX  aUEL  T 

TMtRML 

1 1 A 

c 

FIMX  a*-l 

TMtRML 

115 

F *NX  «F  2 

TMtRML 

116 

TOTNMX  a  TOTN 

TMtRML 

117 

330 

CONTINUE 

TMtRML 

us 

IF  t  IrtMT  .EU.  O.OR.NPTS  .01.3*)  OO  10  395 

TMtRML 

119 

MMlTttA. 1006) XX. YY .OMmI AY 

TMtRML 

1*0 

moo 

FOMMAl (1UX.3I10X.O1*. 5)) 

1 MtRML 

1*1 

C  395 

CU(IJ)  •  CUUJ)  •  CEAM  (CMMLX  (  U.  .URN1AY )  ) 

TMtRML 

1** 

J95 

CU(IJ)  a  CUUJ)  •  CMMLAC  C0510MFUAY)  .SIN(OMMIXY)  ) 

TMtRML 

1*3 

•go 

CONTINUE 

TMtRML 

1*4 

c 

IF ( lNF'T.tU.0)  GO  10  35 

TMtRML 

1*5 

■MITE  <6. *913)  BlGPHi  .XIMAA.AMAA.TMAA.UELTMA.F  2MX.  TOTNMX 

TMtRML 

1*6 

*913 

FORMAT < 1UX.14M  OMNI. IMAA.A.Y. 4GI*. 5<//. IBM  0 TEMP »F \ .F 2 .OtLN  .3012.  TMtRML 

1*7 

*5) 

1 MtRML 

1*S 

IF(INPT.tU.O)  00  TO  35 

TMtRML 

1*9 

34 

FOMMAT (61H1  FIElO  AFTER  MguIFlCATION  BY  TMtMMAL  dOUMUARY  LAYER  ELE  TMtMML 

130 

1 MENT  ) 

TMtRML 

131 

Nag 

TMtRML 

13* 

UMAX  a  0. 

TMtRML 

133 

CALL  OUTPUT (CU.NPY.NRTS. A. N. UMAX) 

TMtRML 

134 

3b 

RETURN 

TMtRML 

135 

ENU 

TMtRML 

136 

16.  SUBROUTINE  TILT 

a 

Purpose  —  Subroutine  TILT,  shown  in  Figure  72,  can  be 

used  to 

•emove 

beam  tilt  and  will  calculate  the  radius  of  curvature  of  a 

beam. 

b 

Relevant  formalism  —  To  remove  small  amounts  of  beam 

tilt,  the 

following  formalism  is  used.  Large  fixed  tilts,  such  as  result  from  mirrors 
set  at  an  angle  to  the  beam  axis,  are  removed  by  the  system  analyst  in  defin 
ing  the  equivalent  collimated  system. 


Consider  an  input  field  U(x,y)  incident  on 
transmission  function  t(x,y)  yielding  an  output 


an  optical  element  with 
U  (x,y). 


(x,y)  -  t(x,y)  U(x,y) 
*  A  exp  (id) 


(256) 
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1 


CYCLE  9.73  ---CYCLE  9.1 18 


CYCLE  9.1 19 -—CYCLE  9.142 


CYCLE  9.143  — CYCLE  9.170 


CYCLE  9.171  —  CYCLE  9.203 


CYCLE  9.204— CYCLE  9.223 


CYCLE  9.224— CYCLE  9.237 


Figure  72.  Subroutine  TILT  organisation. 
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For  removal  of  beam  tilt  from  a  field  U(x,y)  the  transmission 
function  must  be  of  the  form 

tTILT  lx,y)  ■  ,-l(V*V)  • 


(257) 


where  a  *  h0  and  A  =  h0  define  the  tilt  angles  to  be  removed, 
xx  y  y 

Similarly,  the  phase  curvature  is  removed  by  the  following  transmission 
function 


-i  (x2+y2) 

^PHERE^*’^  3  £ 

To  calculate  the  constants  a^  and  a^  for  an  arbitrary  field  distribution, 
U(x,y) ,  define  the  following  functional  to  be  minimized: 


(258) 


TILT 


-JJdxdy  |u(x,y)|2  |<7($-ax  x-ayyj' 


or 


(259) 


ftilt  'If***  ffe  -  s)!  •  (#-*>■) 


the  resulting  expression  for  "a  is 
a  *  <7$> 

where , 

> 


J} 

£& 

!  <*)| 

2» 

v$ 

0S1 

U  (x) 

I2 

(260) 


(261) 


7$  is  easily  found  from  the  field  data  by  noting  that 


1 

i 

1 


Once  the  tilt  is  removed,  a  similar  procedure  to  remove  phase  curvature 
is  used.  Recall  that  the  transmission  function  (x,y)  needed  is  of  the 

form 


tSPHERE  tx,y)  =  £ 


•ik 


m 


(263) 


The  new  functional  to  be  minimized  is 


SPHERE 


*  JJ dxdy  U(x,y)  |  -  b|x2  +  y2j|j 


(264) 


• « 


which  results  in 


b  -  <x  * 

<x  •  x> 


(265) 


Valves  of  tilt  a  and  sphere  b  are  found  by  an  iterative  procedure  until  the 
values  established  for  these  parameters  do  not  change  appreciably. 


c. 


Fortran 


Argument  List 


RADCUR 


*  Total  x  and  y  tilt  in  the  beam.  The  amount  of  tilt  removed 
from  the  beam  by  this  routine  is  added  to  these  parameters 
so  that  no  tilt  information  is  lost. 

=  the  negative  of  the  radius  of  curvature  of  the  beam  found 
by  this  routine.  To  produce  a  "flat"  beam  the  following 
calculation  would  be  performed. 


CU'fl.J)  =  CU(I,J)  *  exp  i(VXR)  (x“  *  y") 


(266) 


with  R  representing  RADCUR 
X  *  X(I)  and  Y  *  X(J) 
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r.nnn 


IPS 


*  the  parameter  that  indicates  which  options  in  this  rou¬ 
tine  are  to  be  used.  IPS  is  the  same  parameter  as  UPS 
in  name  list  PROPGT  in  subroutine  GDL.  The  options  are: 

IPS  3  0  Tilt  is  not  called  for 

=  1  Tilt  only  is  removed 

=  2  Sphere  only  found 

=  3  Both  tilt  and  sphere  found, 
tilt  being  removed. 


Common  Variables  Altered 

CU  -  has  tilt  removed 

CFIL  -  starts  off  set  to  CU,  then  has  both  tilt  and  sohere  removed. 
Subroutine  TILT  computer  printouts  follow. 


SUBROUTINE  TILT  76/176 

0PT=1 

FIN  4.6+4S2  04/27/79 

12. 

23.47 

SOBHOUU  Ifc  I  IlTIAX.AY.MAuCUM.IPS) 

CYCLE9 

f  J 

c  phase  connection  houuwe 

CYCLC9 

/* 

c  this  MoutiNt  determines  r«t 

LINE. AH  ANO 

UuAUMaUC  COMPONE'VlS  of 

CYCLE9 

r  s 

C  PHASE.  If  ALSO  REMOVES  TRfc 

LINEAR  COMPONENT  UfcFOME  RETURNING 

CYCLE9 

to 

C  10  rnt  CALLING  ROUTINE. 

LYCLE9 

1  T 

LEVEL  2.  CU.LuR.LF  ILR 

LYCLE9 

TO 

CUMMUN  /"ELI/  Co  (  10J8MI  .CF  1HU9.  128)  .X  ( 128)  .aL.NPTS.NPY .URX.ORY 

CYCLE9 

79 

COMPLEX  CU.CF IL.CSUMX.CSOMY .CB.CM .CAA.CCC.CC.CCNU. CAX. CAY, LF ACT. 

CYCLE9 

80 

A  CnX.ChY .CCNJ.CHlNT 

CYCLE9 

81 

DIMENSION  COM  1  i 1 .CFILR1258. 11 

CYCLE9 

82 

tUuIVALfc.uCt  (CO(l)  .COM  111  1  • 

ICFIL11.11 

.LFILMU.11) 

CYCLE9 

83 

■Mirtie.Juii 

CYCLE9 

8* 

301  format (roMo«««  linear  ano/or 

SPHfcR ICAL 

COMPONENTS  OF  PMASfc  AHE  8EI 

CTCLE9 

85 

AMU  REROVtO  •  *•/) 

CYCLE9 

88 

1 TMAX«30 

CYCLE9 

87 

SPMTOLa.UOl 

CYCLE9 

88 

ICXA»0 

CYCLE9 

89 

ICrtHaO 

CYCLE9 

90 

PlaJ. 1*1592 

CYCLE 9 

91 

OElX  a  Xli)»«UI 

CTCLE9 

92 

AAT0la0.il 

CYCLE9 

93 

AYTOTaQ.O 

CYCLE9 

9* 

MOUNT  a  U 

LYCLE9 

95 

E AX  a  0,0 

CYCLC9 

98 

CAY  a  (J.O 

CYCLE9 

97 

CMP  a  O.U 

LYCLE9 

98 

MAOCOM  a  1.ES0 

CTCLE9 

99 

MOOLO  a  1.ES0 

CYCLE9 

too 

AXOLO  a  AX 

CYCLE9 

101 

AYOLO  a  AY 

CYCLE9 

102 

MOW  a  0.0 

CYCLE9 

103 

00  20  Jal.NPY 

CYCLE9 

10* 

00  20  lai.NMTS 

CYCLC9 

105 

IJ  a  1  •  (j-i)aNPTS 

CYCLE9 

108 

CFJLU.Jl  a  CU(IU) 

CYCLE9 

107 

PO#  a  CUM ( I J*2”l ) **2  *  CUR<lU»2)#*2  . 

PUB 

CYCLE9 

108 

nnnno 


i 


P Q«  •  CFlUl>J)*CONJIi(CFlL(ltJn«MO« 

20  CONTINUE 

POP  a  P(Ja*06L*#a2 
NL1MX  a  NPTb-t 
NLIMY  a  NPY-l 
IP  (NPTS.NE.NPYINLlMTaNPY 
aHITE (6*180) 

100  fopmat  <27x.33MiNTEMM£0lArfc  optimisation  hesulTS  // 

•  lOM  UEMAUON.5X«5nP0CALt  ?A.6hWA0CUK*SX.  3H4TX.IQA.  JHATY* 

8  OAto»**ror tOXtOHtr lui  > 

25  ip  i  ips  .£u.  i  )  go  ro  s* 

AOUNT  a  AQuN  f  ♦  I 
CSUMA  a  10. 0.0.0) 

CSUMY  a  IQ. o. 0.0) 

DO  30  jaa.Ni.lMY 

JMaJ-i 

IP  U.tCJ.iYPY)  Jlaj 
CttaCFILU.J) 

CAaCPlLI2.J> 

00  30  laa.NCiMk 

CaapCPIL  < I .01 ) 

CCC«tMLU.J"l 

CCaCd 

C3aCA 

CAaCPlLU*l*J) 

CCnJ  a  CUNjG(Ch) 

CbUMA  a  CCNJ4(CA-CC)/2.0*C5UMA 
CjuHY  a  CCNJ«(CAA-CCC)/a.O«CbVJMY 

JO  continue 

CA*  a  C9UMA«UELX 
CAY  a  CSUMY»UELA 
ATlTa  aAlMAG(CAA) /PUa 
ATLTY  sAlMAG ICAY ) /PUJ 

if (NPrs.hu.NPY)  go  ro  52 

ATLTYaO.U 

52  ATAa-ATLfXaaL/<a.»PU 
ATta-ATl.rYaaL/ta.»Hn 
AX  TO  T  a AX  1 0  7* AT  X 
AYTOTaaYTOT*ATY 

AAaAX'ATX 

AYaAY*ATY 

00  40  Jal.NPY 

Jla(J-l)»NPTS 

ATlTYY  a  ATLTY  •  A(J) 

00  40  lal.NPTS 
iNOXaJIM 

PHI  a  ATLTX*A(1)  •  ATLTYY 

CPaCT  a  CMPLX  <C0S<PHl> .SIn(PHI) ) 

CPaCT  a  CEXP(CMPLA(0..4TLlA*A(l) ♦ATLIY»X(J1 > ) 

CUI INOX)  «Cj ( INOX) /CP ACT 
CPILI  I#  J>  «CF 1L  (  l*  J)  /CF  ACT 
40  continue 
EAX  a  0.0 
EAY  a  0.0 

IPlABSIAA)  .01.  0.0)tAAaA8SU.0-4AULD/AX> 

IP(A8S(AY)  ,UT.  O.OlfcAYaABbU.O-AYOLU/AY) 

ICAA  a  1 

IP tCAA. 4. r.O. 09.ANO.EAY.lt. O.Obl  ICAAao 
AAoLO  a  AX 
AYuLO  a  AY 

IP  UPS  .£0.  1  )  GO  TO  TO 

•  The  Following  calculations  ottEPniNt  the  least  SooahES  SPheOIC 

•  PIT  TO  THE  PHASE  GMAOIENT,— --THE  PtSOLT  >8.  IS  2* PI  /I9L*H). 

•  »  a  THE  MAOIUS  OP  CUPYATUHE  OP  THE  PHASE  PHONT. 

••••••••••••••••••••••a  POPGnAM  11/25/74  •••••••••••••♦••••••••« 

94  Ta  0.0 

OO  59  J  •  if  NPY 
00  59  I  a  t,  NPTS 

PMAO  a  CPIL«l2»l-I*J)**a  ♦  CP 1LH (2* l . J) ##2 


CYCLES 

10S 

CYCLES 

no 

CYCLES 

in 

CYCLES 

112 

CYCLES 

113 

CYCLES 

114 

CYCLES 

115 

Cycles 

116 

CYCLES 

117 

CYCLES 

118 

CYCLES 

US 

CYCLES 

120 

CYCLES 

121 

CYCLES 

122 

CYCLES 

123 

CYCLES 

124 

CYCLES 

125 

CYCLES 

126 

Cycles 

127 

cycles 

128 

CYCLES 

12S 

CYCLES 

130 

CYCLES 

131 

CYCLES 

132 

CYCLES 

133 

CYCLE9 

134 

CYCLES 

139 

CYCLES 

136 

CYCLES 

137 

CYCLES 

138 

cycles 

13S 

cycles 

140 

CYCLES 

141 

cycles 

142 

CYCLES 

143 

CYCLES 

144 

CYCLES 

149 

CYCLES 

146 

cycles 

147 

CYCLES 

148 

CYCLES 

149 

cycles 

150 

CYCLES 

191 

CYCLES 

152 

CYCLES 

153 

CYCLES 

154 

CYCLES 

159 

Cycles 

196 

cycles 

157 

cycles 

158 

cycles 

159 

cycles 

160 

Cycles 

161 

cycles 

162 

CYCLES 

163 

cycles 

164 

CYCLES 

165 

CYCLES 

166 

CYCLES 

167 

CYCLES 

168 

CYCLES 

16S 

Cycles 

WO 

CYCLES 

W1 

cycles 

1 72 

CYCLES 

173 

Cycles 

174 

cycles 

175 

CYCLES 

1  76 

CYCLES 

ITT 

CYCLES 

178 

CYCLES 

ITS 
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m 


w 


c 

FMaG  a  CML 1 1 « J)  •  CONJG(  CFlL(l.H)  ) 

CYCLE* 

180 

T  a  FMAG  •  (  X(l>a«2  ♦  A(J)»*2  1  *  t 

CYCLE* 

181 

CONTINUE 

CYCLE* 

182 

TINT  a  f  •  JELA  •  UELA 

CYCLE* 

183 

CM  A  a  (  0  «  .  0  .  i 

CTCLE9 

18* 

CNY  a  (0..0.) 

CYCLE* 

18S 

00  60  J  «  2  *  NCI  NT 

CYCLE* 

188 

J  t  *0  ♦  t 

CYCLE* 

IdT 

JHaJ-l 

CYCLE* 

188 

IFtJ.tU.NHYl Jlaj 

CYCLE* 

189 

ca»ct-  (ut.oi 

CYCLE* 

1*0 

CA*CF IL <2.U) 

CYCLE* 

1*1 

00  do  l«2.NLl*«x 

CYCLE* 

1*2 

CAAaCF IL ( I • Ji ) 

CYCLE* 

193 

CCC»CF IL I I «3M) 

CYCLE* 

l»* 

CCaCd 

CTCLE* 

l*S 

CbaCA 

CYCLE* 

1*6 

CA*CF IL  ( l *  1  «UI 

CTCLE* 

1*7 

CCnJ  a  CONOO ( Cd 1 

CtClE* 

1*8 

CM*  a  CCNJ*(CA-CC>»A(ll/2.U»Cnx 

CTCLE* 

1*9 

CHT  a  CCNJ« (CAA-CCC) *X ( J) /2.0*CMY 

CTCLE* 

200 

t>0 

CONTINUE 

CTCLE* 

201 

CMlNT  a  OELA  *  t  CHT  •  CrtA  ) 

CYCLE9 

202 

B  a  -AlMAO(  CHtNT  )  /  Ui.T 

CTCLE* 

203 

IF  (AbS(8I  .(iT.  (2.*Hl/aL/l  .EbOH  FOCAL  a  d«OI/l*t.«B> 

CTCLE* 

204 

HAUCUH  ■  (FuCAL»HaOCUM)  /  1  FuCAu •HAOCUN ) 

CTCLE* 

20b 

IF (AUS(HAOCUM) .5f .O.U)EHOAAHb(l.U-MUULJ/HAUCUH> 

CYCLE* 

206 

ICKrtat 

CTCLE* 

207 

HOOLO  a  NAOCOH 

CTCLE9 

208 

IF  terfU.LE.SPHTGU  ICKHao 

CTCLE* 

20* 

c 

CHAO  a  CNPla  (0.0. HI/ (»L*FUCAL)i 

CTCLE* 

210 

HIOALF  ■  FI/(ML«FOCAL) 

CTCLE* 

211 

00  80  Jal.NPT 

CTCLE* 

212 

YSU  a  A(J)**2 

CTCLE* 

213 

00  80  lal.NPtS 

CTCLE* 

214 

12  •  2*1 

CTCLE* 

21b 

12*1  a  12  -  t 

CTCLE* 

216 

HHl  a  (X ( 1 ) **2  ♦  TSOI  •  HIOatF 

CTCLE* 

217 

SINH  a  SIN(HMI| 

CYCLE9 

218 

COSH  a  COS  ( HMD 

CYCLE* 

21* 

COHS  *  CFILH(12«U,J> 

CYCLE* 

220 

CF ILH ( I2H t * J)  a  CUHS*COSH  -  lF IlH < t 2* J) »S1NH 

CYCLE* 

221 

do 

CFILH(I2»J>  *  CoHS*SlNH  »  CF ILH ( 12 »U) #CUSF 

CYCLE* 

222 

c 

do 

CFIL 1 1 fJ> *CF IL 1 1 . J) *CEAH ( I A ( I j **2»A ( J) **2>  *CHAO) 

CYCLE* 

223 

10 

UMAX  a  0.0 

CYCLE* 

22* 

*H1TE(6.1*0)  ROUNT .FOCAL  >H AOCO* • Af  X. A  T  Y . AATQT . AY  TOT 

CYCLE* 

22b 

too 

FOHHAI  (  IX.  15.4A.6G1  3.4) 

CTCLE* 

226 

IF  (FOCAL. GT.-A.tOS.ANO. FOCAL .L T .6.E0b. ANQ . MOUNT ,LT . I TMAA) ttO  TO  2b 

CTCLE* 

22T 

IF (IlCKA.Gr.O. OH. 1CKH. or. 01 .ANO.AOUNT.lt. ITHAXt  00  TO  2b 

CTCLE* 

228 

IF ( IHS.EO.l.oH. IPS. EG. J) aHITt (6.201) AATOI .AY  TOT 

CYCLE* 

22* 

dOt 

FOHMAT (/20A. 16HL1NEAH  COMHUNtNT// 

CYCLE* 

230 

X  lOA.dHflLI  IN  IHAOM  a  A(A)  a,G12.*.8M  MAO  IANS/ 

CYCLE* 

231 

X  10X.8HULT  IN  IHY9H  a  A  ( Y )  *.ttl2.4.8H  MAO I  ANSI 

CYCLE* 

23  2 

IF ( IHS.0E.2I MM1 TE (•<« T) HAUCUM 

CYCLE* 

233 

07 

FONMA T ( /20A  < l*nSPHEHlCAL  COMPONENT// 

CYCLE* 

234 

X  10A. J2hPmaSE  FHONT  CoHyAToHE  a  haOCUM  a,Gl2.4.JH  CM//) 

CYCLE* 

23S 

hETUmn 

CYCLE* 

236 

ENO 

CYCLE* 

237 

37.  SUBROUTINE  ERF 

a.  Purpose  --  The  function  ERF  generates  the  error  function 


erf (x) 


C267) 
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or  its  complement,  l-erf(x),  for  any  input  value  of  x.  This  subroutine  is  a 
copy  of  the  ERF  function  available  from  the  AFWL  scientific  program  library. 
Figure  73  shows  the  Subroutine  ERF  flow  chart. 


LROP1.294,—- 

296 


LRP0 1.297,—- 
299 


LROP1.302,— •- 
313 


LROP1.323,— 

334 


LROP1.339.— — 
349 


Figure  73.  Subroutine  ERF  flow  chart. 


b.  Relevant  formalism  --  The  error  function  integral  is  approximated 
over  discrete  intervals  of  the  argument,  x,  by  Tchebickef  (Chebychev)  poly¬ 
nomials.  These  polynomials  are  evaluated  in  a  loop  which  combines  the  recur¬ 
rence  relations  for  generating  the  polynomials  and  a  running  summation  of  the 
terms  as  they  are  generated.  Coefficients  for  the  polynomials  are  provided  in 
a  data  statement  for  three  discrete  ranges  of  the  argument.  Argument  values 
outside  this  range  will  return  a  zero  (0) . 

Argument  List 

ANS  error  function  value  returned  to  calling  program 

KODE  flag  to  indicate  computation  of  erf(x)  or  l-erf(x) 

XX  error  function  argument 

Relevant  Variables 


A1 

A  2 
A3 


array  of  coefficients  used  in  the  polynomial  expansion 
over  the  range  |xx|  2. 

coefficient  array  for  the  range  4.  <_;  xx |  <_  6 . 
coefficient  array  for  the  range  2.  <|xx|<  4. 


SUBROUTINE  ERF 


76/176  0PT=1  FIN  4.6+452  04/27/79 


12.23.47 


c 

c 

c 

c 

c 

c 

c 


c 


c 


SObWOUT  INfe  t><F  (*UUt.**.AI'l51 

conducts  BY  CMertTSrtfcy  t*P*n91<JN5  OH  IWttHVALS. 

*Oo€«l  LOHPUTtb  tHMAJ 

*006«2  COMPUTES  EHT’CUI  »l-6H7  (A) 

cue  6600  HOUflnt 

1-0-  U 

OlnCNSIO*  A1  <3l>  .A2<27>  .AJM6> 

OATAIAl  (  11  • I«1 • 31 > /2. 966221 1281696 lt*U«0..-6. 02142146 7731896-1.0.. 
11. 37989661379662E-1. 0.. -2. 7832542529-4 J7t-2.0.. 4. 84 199904486 7836-3 
2. 0..- 7. 31 72793 7 1694536-4.0.. 9. 724 1968863 7 1 74t-5.0.. -1.14985 131161* 
3046-5.0. .1.222648716469336 -6.0..- 1.1 79820309 731 706-7.0.. 1.04140 177 
4691278E-8.0.. -8. 465953294542256-10.0.. 6.3 76204434989606-11.0. .-4.4 
57 1 77281 9622 156- 12 .0 • .2.935402229821016- 13.0 • .“I .83283038964 1416- 14 
b/ 

DATA ( *21 1) • l»l .271/1.9  70  7092  7225794.0. t-l .4339740271 7750t -2.0. . 
12.973616922026196-4.0. .-9. 8035 1604336237t-6,0.. 4. 33 13342034 7286-7. 

20..  -2.362 l5002b241E-«.0..1. 519496/69816-9. 0 . .-1 . 1 0849398966-10. 

30. . 9. 042990 146-12. 0.. -8. 094 70946- 13.0*. 7.8538566-14.0.. 

4-8.1 79186-15.0.. 9.0 7 156-lb.O.. -1.06466-16/ 

UAT A  ( A3  ( 1 ).  l«l»  161  / 1. 0666308(19319936*9 . 1 . 788760620944366-2. -3. 801 7 
192938094016-3.6.971114350236016-4.-1 .163688460638926-4.1.813676759 
23261 96-5. -2. 677 199397851386 -6. 3. 7770 13299099966- 7. -5. 12491 14290140 
326-8. 6. 7 1870399 76310 76-9.-0. 540 196461 126446-1 0.1. 055443021868996-1 
40. -1.27 108990000 1246-1 1.1 .4944 1348 1890646-12. -1.7) 38290 78653396-13 
5 . 2 . 08899964 3 1 34696 - 1 4/ 


LHOPl 

258 

LHOPl 

259 

lhopi 

260 

LHOPl 

261 

LHOPl 

262 

LHOPl 

263 

LHOPl 

264 

LHOPl 

265 

LHOPl 

266 

LHOPl 

267 

LHOPl 

268 

LHOPl 

269 

LHOPl 

270 

LHOPl 

271 

LHOPl 

2  72 

LHOPl 

273 

LHOPl 

274 

LHOPl 

2  75 

LHOPl 

276 

LHOPl 

277 

LHOPl 

278 

LHOPl 

279 

LHOPl 

280 

LHOPl 

281 

LHOPl 

282 

LHOPl 

283 

LHOPl 

284 

LHOPl 

285 

LHOPl 

286 

275 


lhopi 

287 

OATA  HTPl.XLlM/1. 77245385090552*  2.584U852B684382E-1/ 

LHOPl 

288 

OAT  A  N1*N1H1*N2,NZM1*N3«N3H1/J1.  30*27*26*16*  15/ 

LHOPl 

289 

LHOPl 

290 

X«AX 

LHOPl 

291 

SO  TO  ( 100*200) «AOUE 

lhopi 

292 

100  CONTINUE 

LHOPl 

293 

IF1X.lE.-5.)  10*20 

LHOPl 

294 

10  XNS*-l. 

LHOPl 

295 

HE  tuhn 

lhopi 

296 

20  IF  IX.LT .0.)  SO  (0  12 

LHOPl 

297 

ANS* 1 • 

LHOPl 

298 

hETUHN 

lhopi 

299 

12  1F1X.LT.4.)  SO  10  30 

lhopi 

300 

ASSION  26  TO  I SET 

LHOPl 

301 

61  CONTINUE 

LHO**i 

302 

Z*4./X  *  TZ»Z«Z 

LHOPl 

303 

82*0. 

LHU**1 

304 

81*0. 

LHOPl 

305 

00  25  1*1 *N2Nl 

LHOPl 

306 

J*N2-I ♦ 1 

LHOPl 

307 

TEMP*81 

LHOPl 

308 

Bl*TZ*«l-82-A2(J) 

lhopi 

309 

82*TEhP 

LHOPl 

310 

25  CONTINUE 

LHOPl 

311 

ANS*Z»8l-82«A2( l)/2. 

lho**i 

312 

ANS*(£XH»-x«xl / 1X»HTHI) ) • ANS  * 

LHOPl 

313 

SO  TO  1SET* 126*2 7 *28*20) 

LHOPl 

314 

26  ANS* 1. -ANS 

LHU**1 

315 

27  HETUHN 

LHO*»l 

316 

29  ANS  *  —  l  .  •  ANS 

LHOHi 

317 

he  tuhm 

LMUH1 

318 

30  continue 

LHOPl 

319 

IFIX.ST.2.)  31*40 

LHU*»1 

320 

31  CUNTINUE 

LHOPl 

321 

ASS I SN  26  TO  I SET 

LHO**l 

422 

4b  CUNTINUE 

LHOPl 

323 

z*x-3.  *  rz  ■  z«z 

LHOPl 

324 

82*0. 

LHUP1 

425 

81*0. 

LHOPl 

426 

00  36  J*l.N3Ml 

LHOPl 

427 

k*n3-J- 1 

LHOPl 

428 

TEmH«81 

LHOPl 

429 

81 *TZ*8 1-82* A3 1H) 

LHOPl 

330 

82*  TEN** 

LHOPl 

331 

46  CONTINUE 

LHOPl 

332 

anS«Z«81-82-A3  tl ) /2  * 

LHOPl 

333 

ANS*CXP 1 - A» A  > * ANS/ X 

LHOPl 

334 

SO  TO  ISET* (26*27.28.29) 

LHOPl 

335 

40  CONTINUE 

LHOPl 

336 

ifix.lt. -2.)  so  ro  so 

LHOPl 

337 

ASS I SN  27  TO  ISET 

LHOPl 

338 

42  CONTINUE 

LHOPl 

339 

Z*x/2.  %  T 2*2*2 

LHOPl 

340 

82*0. 

LHOPl 

341 

81*0. 

LHOPl 

342 

00  45  1*1*N1N1 

LHOPl 

343 

J*Nl-l»l 

LHOPl 

344 

TEN**  *81 

LHOPl 

345 

81*TZ*81-82«A1 <J> 

LHOPl 

346 

82-TEMP 

LHOPl 

347 

45  CONTINUE 

LHOPl 

348 

AN5*(X/2.|4(Z*«1-82*A1 (1)/e.) 

LHOPl 

349 

SO  TO  ISET. 126.27*28*29) 

LHOPl 

350 

50  CONTINUE 

LHOPl 

351 

IFlX.ST.-4.)  51*60 

LHOPl 

352 

51  CONTINUE 

LHOPl 

353 

ASSION  29  TO  ISET  \  X*-X  »  SO  TO  35 

LHOPl 

354 

60  CONTINUE 

LHOPl 

355 

x««xx 

LHOPl 

356 

ASSION  29  TO  ISET 

LHOPl 

357 

SO  TO  61 

LHOPl 

358 
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200  CONTINUE 

ifu.gt.-o.i  go  ro  20s 

ANS»2.  *  NETUHN 

209  IF  IX.CT.XClHI  80  TO  210 
ANSaO*  S  MfcrUHN 

210  CONTINUE 
IF(X.CT.a)  80  TO  215 
ASS I ON  2/  TO  I SET 

GO  TO  61 

219  IFU.GT.2.)  80  TO  220 
IFlX.CT.-2.>  80  TO  225 

ASS  l  UN  28  to  1st' 

GO  TU  *2 

220  ASSIGN  it  TO  I SET 
GO  TO  39 

229  IF (X.GT «•*. )  80  TO  230 
ASSIGN  20  10  I SET 
X«-XX  S  80  ro  81 

28  AN9«2.-ANS  i  HtroMN 

230  ASSIGN  28  ro  IStr  *  x«-x 
GO  TO  39 

ENO 


CHOPl 

399 

CHOPl 

380 

CHOPl 

381 

CHOPl 

382 

CHOP  l 

383 

CHOP  1 

388 

CH0P1 

38S 

CH0P1 

388 

CH0P1 

38T 

CHOP  l 

388 

CHOP  I 

389 

CHOP1 

JTO 

CHOP  I 

3T1 

CHOP  I 

3r* 

CHOP! 

3/3 

CHOPl 

it  A 

CHOP  1 

3  7S 

CHOP  l 

J/8 

CHOP! 

J/T 

CHOPl 

3/8 

CHOPl 

3/9 

CHOPl 

390 

CHOPl 

381 

CHOPl 

382 

CHOPl 

383 

CHOPl 

38* 

CHOP! 

385 

277 


SECTION  IV 


USER  FAMILIARIZATION  PACKAGE 

The  following  section  contains  sample  input  to  run  the  SOQ  code  and  to 
logically  define  the  sequence  of  input  to  model  a  sample  resonator  or  optical 


i  the 

following  examples  are  included: 

1. 

Propagate  for  Users  Guide 

-  Camp 

2. 

Propagate  for  Users  Guide 

-  Vamp 

3. 

Quality  for  Users  Guide 

4. 

Design  of  a  Bare  Confocal 

Resonator 

S. 

Resonator  for  Users  Guide 

-  Bare 

6. 

Resonator  for  Users  Guide 

-  Loaded 

7. 

Sample  Code  Update 

1.  PROPAGATE  FOR  USERS  GUIDE  -  CAMP 


JRAPC.STMPX.PA00n.Tl  PROPAGATE  tow  uSERSGUIDE  -  CAMP 

account t jr alt ,**«*****-•*« .lro.i  m> 

GE  TP*-'  (OlDPL  .SOU  ?7l2d.  1 0»*-*w***<* ) 

UPUATE (T.wi 

FTN  <  I .LCM=T ,OL=20000 .L=0,A) 

RETURN! OLDPL t 
COPYCR. INPUT, TAPES. 

RF.wInO.  TAPES. 

RFLFC  <4J0> 

LGO (PtsftOOOO) 

RFLFC!  1) 

♦EOR 

PROPAGATE  -  CAMP 

tST APT  WWL»0.OO10S,  NEALES.  0CAL»t5.»  NNPTS»12h» 

I H«d«  OOPXaO.O.  OUHY*0.0.  AMPGE5»20.0»  OGAUSS*0.0» 
RESTRTs. FALSE. .  PLOTSal.O,  INaS, 

SYMrwC*,FAl.SF,»  PHISAO»0.0»  SEMI) 

PROPAGATE  -  CAMP 
iCONTPU  I FL Ow*4  ,  SEND 

APERTURE  ThF  PLANE  WAVE  TO  10.  CM. 

SAP  TUP  oour* 10.,  0 1 N*Q , ,  kf  NO 

SCONTRL  IFlOWs@,  SEND 

PLOT  THE  INITIAL  PLANE  WAVt 
SPLOT  SEND 

INITIAL  PLANE  WAVE 
SCONTRL  IPLOws3.  *E\0 

PROPAGATE  THE  FIELD  4000  CM.  USING  CONSTANT  AREA  m£Sh 
SPPQPGT  OF  LZ*4000  .  .  ROCUNVaO..  wIN()OX*0.1,  WlNOO*a0.l. 
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IlFGal*  IIT*«0»  IlHSsO.  5ENO 

SCONTHL  IFLOv.sH,  SFNO 

PLOT  PP0P4GATFD  FIELD 
iPLCT  $FND 

PROPAGATED  FIEI.U 
iCONTwL  I  FLO^sQ ,  $ENO 
WfcTLPN  TO  *’A  IN 
SSTaPT  .«) s-1,.  *ffNO 
*fcLP 
»EoF 


2.  PROPAGATE  FOR  USERS  GUIDE  -  VAMP 


100=JRAUG,STMFX.P60,T77,ECl.  PROPAGATEFORUSERSGUIDEVAMP,  ID*LREPPEF 
1 1 0*ACCOUNT  (JR  ALT, 0001 1 498- 1  EL.LRO,  1 487) 

120=ATTACH(OLDPL,SOQ77128,  ID=LROPJRA,  ST=ANY) 

1  130=UPDATE(F) 

140=FTN(I,LCM=I,PL=2000Q,L=0) 

150=RETURN(OLDPL) 

160=COPY,  INPUT,  TAPES. 

170=REWIND,  TAPES. 

180=RFLEC(430) 

1 90=LGO(  PL=60000) 

200=RFLEC(1 ) 

210='EOR 
220=*  EOR 

230=  PROPAGATE  A  MIRRORED  PLANE  WAVE  A  DISTANCE  DEL2  -  VAMP 
240=  SSTART  WWL=0.00106,  NCALL=2,  DCAL=5.6,  NNPTS=128, 

250=  IB  =8,  DDRX=0.0,  DDRY=0.0,  AMPGES=20.0.  DGAUSS=0.0, 

260=  RESTRT=. FALSE.,  PLOTS=1.0,  IN=5, 

270=  SYMTRC=. FALSE.,  PHIRAD=0.0,  SEND 

280=  PROPAGATE  A  MIRRORED  PLANE  WAVE  A  DISTANCE  DELZ  -  VAMP 
290=  SCONTRL  IFLOW=2.  SEND 
300=  APPLY  A  MIRROR  TO  THE  PLANE  WAVE 
310=  SMIROR  DIAOUT=4.0,  DIAJN=0.0,  XMPOS=0.0,  YMPOS=  0  0 
320=  RADC=-400..  RMIR=1„  =SEND 
330=  SCONTRL  IFLOW=8,  SEND 
|  340=  PLOT  THE  MIRRORED  PLANE  WAVE  FIELD 
I  350=  SPLOT  SEND 

!  360=  INITIAL  MIRRORED  PLANE  WAVE  FIELD 
j  370=  SCONTRL  IFLOW«3,  SEND 

!  380=  PROPAGATE  THE  FIELD  200.  CM.  USING  VARIABLE  AREA  MESH 
i  390=  SPROPGT  DELZ=200..  ROCURV*0.,  WINDOX-0.1,  WINDOK=0.1, 

400=  IIFG«2,  IITR=1,  IIPS»0,  SEND 
410=  SCONTRL  IFLOW=8,  SEND 
420=  PLOT  PROPGATEO  FIELD 
430=  SPLOT  SEND 
440=  PROPAGATED  FIELD 
450=  SCONTRL  IFLOW*9,  SEND 
460=  RETURN  TO  MAIN  PROGRAM 
470=  SSTART  WWL=-1„  SEND 
480*'EOfl 
49Q»*EOF 
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QUALITY  FOR  USERS  GUIDE 


j.<AUU»b  I  X  ,P<»i)on  «  i  i  t  f  .KLi  .  uuuLilY  hU«  JSF.PS  b"IUfc 
ACCOUNT  ( JH  ALT.  ***»*»•»•*-*<»*  *LPO»  1  731  ) 
bK  TUF  (OlOHL  ««;0(j 

bc.TPF  {  7AP&K.ilStPSbUintPAPtCu» 

UPOATfc (F  .*) 

FTn  {  l  tl.CMal  »Pl_s<?nOOO  »L  =  0  «  A) 

"t-  TiHNU)LOPL> 

C'JPYCP.  INPUT.  TaPFS. 

PEwlNU.TAPFb. 

PFLF.C  ( <»30  ) 

LbU<PL*600rtd) 
pflFC  <  1  ) 

FIND  The  UliAL  I  T  Y  OF  fu£  MFlu 

SSTaST  WWl=0.0t)10A»  NCALL=2.  ,)C  AL=  1  3  .  7tl .  NNPTS=1?«» 
Iriao.  PPPX«0.0»  niMYsi).0»  A>*P(»F  S  =  1  .  U  .  OCAOSSaG.Ot 
WESTWTs  . TPuF..  PLOTS=i.O.  I N  *  5  * 

SY^TPCs.FALSF. .  PHIWA3SU .0 .  *F Ju 
FIND  TmE  OtiALlTY  JF  Tut  F  ItLO 
SCO.JtWL  TFlOwsP,  «fJO 
PLOT  ThP  F l Flu 

*P  LOT  tfcND 

F I  tLt'  AT  INPUT 
*CONTPL  IFIOWSP,  «fNU 

PFTUwn  To  MAIN  PPOoPam  KOP  QU«LITy  CM  COI  AT  [ON 
iS !  A»  t  NC  At  l.  =  )  .  it  it; 

UP  *  lG.*)^ 

1>  O  L  O  T  OBs't  0.64.  I  SAV  =  0  .  I'JL  T  =  0  ♦  1^mASc.  =  J»  1>F  NO 

l)P  a  1  t)  .  hk 

*STAWT  v*wL=-l..  iFNO 
*FjM 

<*f  jf 


4.  DESIGN  A  BARE  CONFOCAL  RESONATOR 


Assume  that  one  wishes  to  design  a  positive  branch,  unstable  bare 
resonator  with  a  collimated  output  beam  for  a  given  geometric  coupling 
0^,  length  L,  and  concave  mirror  size  (a^) .  To  solve  this  problem  design 
a  confocal  resonator  in  the  following  fashion: 

Geometric  Resonator  Design  (Fig.  74). 
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Define  the  following  parameters 


CCM 


Figure  74.  Geometric  resonator  design. 
Recall  the  definition  of  geometric  coupling. 


.  2  2 
C  .  ,  a2  ~  1 

g  VoTAL  Ta? 


But  M  «  a^/aj^  is  the  magnification  of  the  resonator,  thus 


Cg  s  Cg  *  1  -  -j 
M 


Or  inverting  this  expression,  one  finds 


M 


_ 1_ 


g 


C268) 


C269) 


C270) 


Given  the  magnification  and  length  of  the  resonator,  one  can  find  the  required 
mirror  radii  of  curvature,  since  for  an  aligned  confocal  resonator  both  the 
convex  and  concave  mirror  foci  are  coincident.  Figure  75  describes  this 
coincident  feature. 

1 


a.  The  focal  lengths  can  be  related  to  the  magnification  by  noting 


that 


tan  9 


therefore 


The  focal  lengths  are  then  found  to  be 


(271) 


(272) 


f 


1 


L 

=  M-l 


and 


ML 

M-l 


(273) 


Since  the  radius  of  curvature  of  a  mirror  is  twice  its  focal  length,  the  two 
radii  of  curvature  are 


R 


1 


R-,  =  -MR 


2  ML 
M-l 


(274) 


where  the  negative  sign  indicates  a  convex  mirror  and  the  positive,  a  con¬ 
cave.  For  example,  if  L  =  200  cm  and  =  0.75,  the  magnification  and  radii 
are  found  to  be 


M 


VO. 25 


=  7 


(275) 


-i 


-400  cm 


and  R-, 


-(2) (-400)  *  800  cm 


(276) 


b.  Tube  Fresnel  number  --  The  tube  Fresnel  number  for  this  resonator 
can  be  found  by  the  fact  that  the  expanding  pass  propagation  distance  L  has 
an  equivalent  collimated  propagation  length  of  ML  so  the  round  trip  colli¬ 
mated  propagation  distance  is  (M  +  1)L.  The  tube  Fresnel  number  is  then 
(assuming  the  CVM  is  2.0  cm  in  radius  and  the  beam  has  a  wave  length  of  10.6 


NT  *  (M+1)U 


(2)‘ 


(3) (200) (10.6x10  ) 


=  6.29 


(277) 


c.  Computer  requirements 

(1)  Overlap  --  Since  the  beam  diffracts  during  propagation,  it  is 
necessary  to  have  a  large  enough  calculation  region  to  always  contain  the 
beam.  The  required  overlap  can  be  calculated  according  to  Sziklas  and 
Siegman  (Ref.  2)  as 


G  >  1  «*  — \ - 

2ir"NTe 


(278) 


where  e  is  the  tolerance  on  fractional  energy  loss  during  propagation.  Taking 
this  to  be  0.02,  one  find  the  guardband  to  be 


G  >  !♦  — - - - -  =  1.4 

27T  (6. 29)  (0.02) 


(279) 


Thus  the  initial  calculation  region  must  be  at  least  G  times  the  beam  size: 


DCALC  =  1.4  x  2x2  =  5.6  cm 


(280) 


(2)  Number  of  points  required  --  Sziklas  and  Siegman  also  show 
that  in  order  to  adequately  sample  the  beam,  the  number  of  points  in  each 
dimension  must  obey  the  following  inequality: 


Np  >  4G(G  ♦  1)  N? 


(281) 


This  becomes 

Np  4(1.4) (2.4) (6.29)  =  8S 


(282) 


Standard  input  for  the  SOQ  deck  is  128  by  128  so  this  criterion  is  satisified. 


d.  SOQ  input  --  As  a  result  of  the  above  discussion,  the  parameters 
used  for  a  bare  resonator  test  case  could  be  the  following: 
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NPTS 


128 


DCAL  =  3.6  cm 

CVM:  RADC  =  -400  cm 

DIAOUT  =  4.0  cm 
DIAIN  =  0.0  cm 

DEL2  =  200.0  cm 

CCM:  RADC  *  800.0  cm 

PIAOUT  =  8.0  cm 
DIAIN  =*  0.0  cm 


5.  RESONATOR  FOR  USERS  GUIDE  -  BARE 


JRAHw.STMFX.PAOnn.T 1 7/.EC1  .  HfcSONATORFONUSFRSGUIDEBARE 
ACCOUNT  (JHai_T  *LWO«  1731) 

REUUEST (TAPER. *PF) 

MEUUtST (TAPER. *PF> 

GE  rFF  (OLOPL  .SOQ7 71  2H.  I iis**«*»**> 

UPUATE  (F.N. 

F  Tn(  I  .LCM*I  .PL  =  2Ofi(10.L  =  0.A) 

wETUHN(OL0PU 
COPYCR. INPUT. TAPES. 

REwIno. TAPES. 

Gfc  TPF (PfcH.USEPSGurOEPAPECUSM, IlJs*******  > 

GETPP ( PER  « USE RSGU l OERARECU  « ID=«****«* > 

RFLEC  ( 4.10) 

LOU (PL*»OOno) 

RFi_EC  (  1 ) 

PUMGE (WAPER.IlSFHSGUinERAHECuSM. IU=**««*** .LC=  I ) 

PURGE (WAPER.uSERSGUIDEHARECu. IU»*******»LC=1 ) 

CATALOG ( TAPEH.USFPSGUIOEBAHECUSM. ID*******<» .RPsQPP) 
CATALOG! TAPER.USFR5GU10FSAPECU. Ii)s*******,PPsog«) 

*EOR 

*EOR 

SIMPLF  CONFOCAL  RARE  RESONATOR  -  *»2.  NTUbE*5.03 
SSTAPT  RV.L*O.OOIOA.  NCALL«2.  0CAL*6.A.  nnPTS*  128. 

13*8.  DORX*0 • 0 .  DOPY»0.0.  AMPGES*<?0.0.  DGAUSS»0.0* 
RESTRTs  .TRUE..  PLOTS»1.0.  IN«5. 

SYMTRC«, FALSE. .  PM IR AO*0 , 0 .  SEND 

SIMPLF  CONFOCAL  3ARE  RESoNATOH  -  M»2,  NTU8E«S.03 
SCONTRL  IF LOw*2 »  SEND 
APPLY  CVM  M I PROH 

$M  IROP  WAr)C*-20nO.  .  0IAOUTS4.0.  [)IAIN»0.0.  RMlRs.qpr. 
0ELTA»n.n.  ANGXAsQ.fi.  ANGYY*0.fl»  XMPOS*fl.O.  YWPOS»0.0» 
OISTF«fl,n.  SEND 
SCONTRL  IFLOwsR.  *ENT) 

PLOT  THE  CVM  FIELD 
SPLOT  send 

The  CVM  F TELO 
SCONTRL  IFLOR»3«  SEND 
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PROPAGATE  THE  FIELD  TO  Ih£  CO  USING  VAmP 
SPROPGT  n£LZ*lnoO..  wTNOOAaO.l*  **  I  NL)OK*0 . 1  *  T  I F  G»2  t  lIPSsO. 

I1TR«1.  QOCUffVsinon. «  i£NU 
SCUNTWL  TFlOwafl.  *ENO 

PLOT  ThF  FIELD  INCIDENT  ON  CO 
iPLUT  *£NO 

FIELD  INCIDENT  ON  CO 
JCONTPL  IFL0*«2*  4fN0 
APPLY  CO 

SMIPOP  RAOC=*OrtO.«  U I AOU T »fl ,  »  *£NO 

4CGNTRL  IFLOWafl,  FEND 
PLOT  THE  CO  FIELD 
iPLuT  SF.ND 

FIELD  aFTEP  ON  CO 
SCOnTpl  IFL0*»3»  4£NO 

PROPAGATE  The  FIELD  SACK.  TO  ThE  CV*  USING  CONSTANT  AREA  m£SH 
iPRQPGT  DfcLZslOOO..  JtNQVAsO*  I .  *INf)OK»0.1«  IIFG*1»  IIPS*9» 

l  I  TW  =  0  »  POCUPVaO.O.  SEND 
tCONTRL  lFLOwsft.  if NO 

FIELD  CUTOUT  AND  INTERPOLATION  FOR  ThE  NEXT  PASS 
iCUTOuT  niPEAMs*.0.  OVPLAPsl.6.  (UxRaO.,  DYYRaO.,  MAXIT*3. 

AVCUSMsO.O.  SEND 
4CONTRL  IFLOw=D.  SEND 

°LOT  ThE  FIELD  iNCIUtNT  ON  CVM 
sPLOT  SEND 

FIELD  INCIDENT  ON  CVM 
sCONfRL  IFLOwsT.  4ENO 
CONVERGENCE  TEST 
SCONTRL  TPLOWao.  FEND 

RETURN  To  MAIN  PROGHA“ 

4ST  ART  *WLa-l..  4ENO 
*EOR 
*EOF 

' .  RESONATOR  FOR  USERS  GUIDE  -  LOADED 

JRALH  *SIMF x,P400n.TI77.£Cl.  RESONA IORFOWUSEWSGU I DELO ADF D 
ACCOUNT  ( UR  ALT.  **<>**»**-»**  »LRO«  1731) 

REQUEST < TAPE® *»PP) 

REQUEST ( TAPEQ.«PF) 

REQUEST ( TAP£1 ]  ,*PF) 

REQUEST ( TAPE  JF*»PF ) 

REQUEST! TAPE  1 3«*PF> 

Q£  rPE (OLDPL  »SOQ77l 28 . ir)a***«***! 

UPDATE(E,N,r,L»0) 

FTN(  I  ,LCM«I  ,PLs2O0'IO.L»0«A) 

RETURN (OLDPL) 

COPYCH* INPUT, TAPES. 

re-Ind*tapfs. 


GETPF ( TAPEF.USEBSGUlOfcLOAOtUCUSM, ro»*******l 
G£TPF (TAPER, uSEHSGUIDfcLOADtDCU, IOa*******) 


GETPF (TAPE1 1 .USEBSGUTDELOAUEDCG1 1 »IU«*******) 
GETPF (TAPE  1 2 ,USE»SGU  TOELOADEDCG1 2  *  Ills******* ) 
OETPF ( TAPE  13.USERSGUTOELOAUEDCul3.IU********) 
OETPF (TAPE31 .OPD1 1311 AlPTbStCCONTXY, IDs*******) 
RFLEC (4J0) 

LGO(PL*AOO<Ifll 
RELEC  (  l  ) 
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°UHGE  (VHAPEfl,USERSGUinELOAuEOCUSM.IDa*******.LC*l  > 

PURGE  ( RAPE9  »USERSG< IIDELOADEDCU*  1 0»# *•***•  *LC*  1  ) 

PURGE  (WAPF.l  1  .USERSGUIUELOAUEOCG1 1  ♦  Ius******«,lC*1> 

PURGE (WAPE12.USEWSGUT0EL0A0EDCG12. IUs***«***,LC*n 
PURGE  ( VAPE 1  3 .USEPSGUf OELOADEOCgI J  •  TDa******* ,LC» 1 ) 
CATALOG  (  rAPEWtUSEPSGUIllELOAOEUCUSM,  [Da******* ,PP«QGP ) 
CATALOG ( TAPER  .  USERSGUIDELOAUEDCU • IDs*******  » PPa999 ) 
CATALOG  ( I  APE  1  1  . USERSGUI DELUAOEUCGl  1  ,  |  l)s****«**  ,PP»999 ) 
CATALOG  (  TAPF.  IP.uSERSGU IDELOAUEDCG1 2  ♦  ID3*******,PPaq<)Q) 
CATALOG  (TAPF1  3.USERSGUII')ELUAOEOCG13  • 10a«******,RPa<»99) 
*EUP 
*EOR 

SIMPLE  CONFOCAL  LOAOEO  I*E3uNATOR  -  Ma?,  NTURE»5.03 


SSTART  WWL  =  0  *00 106*  NCALL*2«  0CAL*t>.4»  NNPTS»i28. 

18=8.  OPWXaO • 0  •  ODRYaO.O.  AmPG£S*20.0»  OGAUSS»0.0» 

RESTRTa  .TRUE « •  PL0TS*1 «  0  •  IN«5. 

SYMT»C». FALSE.  «  PMlWAOaO.O.  SENO 

SIMPLE  CONEOCAL  LOADED  RESONATOR  -  Ma?,  NTUBEaS.03 
SCONTRL  IFL0Wa2.  *ENO 
APPLY  CVM  MIRROR 

SMIROP  RAOC*- 2000 • ♦  01 AOUTaA .0  .  OlAlNsO.O.  RMlRa.997* 
OELTA30.0.  ANGXXan.O.  ANOYYsO.O,  XMPOS=0.0,  YMP03*0.0» 
OISTEs2.E-7,  SEND 
SCONTRL  IFLDWaB.  SFNO 

PLOT  Th£  CVM  FIELD 
SPLOT  SEND 

THE  CVM  FIELD 
SCONTRL  IFLOwa.O,  S£NO 

PROPAGATE  THE  FIEI.O  TO  THE  CAVITY  USING  VAMP 
SPRQPGT  DEL7»1 00 .  .  RlNOOXso.i.  MlNUOKaO.l,  I lFGa2*  IIPS*0, 
IITRaO.  RPCUHValOOO. .  SENO 
SCONTRL  IFLOwsI,  SEND 


APOLY  GDL  CAVITY 

SCAVTY1  NCAVNOal,  NSTF=*.  ILR»l«  NPLT30, 
ZPROPQsI'jO.  .  SEND 

SCAVTY2  XLENs2A. J2. YLFNs[ 1 .A.  2LEN37bO.» 
NOOXa 1 90 «  NOO Y*90 »  N0StG*3* 

NGTYPEaO,  NGPLOTaO,  IPOENaOt 

T 1 «39 1  .? «  T23395.2.  T3*12HAf 

TS33I3..  PSa.0A22.  Va i 7 1 J8Q  .  * 


?PR0PI=0.. 

XMCAVsh. . 
flags i  i  . » 
IUSFs-1 . 
TN2s[33J.3. 
PHRCHa 1 8 . » 


YMCAVsO. . 
MRESTaO. ♦ 


XN23.81A1.  XC02=.1388» 

A VGA  IN* . 3 •  SENO 

USERS  GUIDE  LOAOEu 
SCONTRL  IFLOWag,  SENO 
APPLY  CCM 

SMJROR  R AOCaAOOfl . •  DlAOUTaa.* 

SCONTRL  IFLOwart.  SENO 
PLOT  ThF  CCM  FIFLO 
SPLOT  SENO 

FIELD  AFTER  CCM 
SCONTRL  I  FI  OV*  *  1  .  SEND 
PROPAGATE  The  FIELD  RACK  THROUGH  ThE  CAvlTY  USING  CONSTANT  AP£A  MESH 
SCAVTY1  NCAVNOal.  NSTF*1«  iLRa-l,  NHL  Tat).  /PROPIalSU.. 

7PR0P0* 1 00 . .  SEND 
SCONTRL  IFLORsA,  XEnO 

field  Cutout  and  interpolation  for  the  next  pass 

SCUTOUT  D  I RF AMaA . P .  UVRLuPal.tj,  OXXRaO..  OYYRsO..  MAXlTaJ. 

AVCUSMa-],,  SEND 


XH20* • U 1  AG .  XCOs.OOAA.  X02s  .  02 a  1  . 
RESONATOR 

SENO 
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SCONTOL  IF(_0#*b.  *FNO 

PLUT  The  MELD  INCIDENT  ON  CVM 
4PLOT  4FnP 

FIELD  TNCIOfeNT  ON  CVM 
SCON  TRL  IFLOKS7.  send 
CONVERGENCE  TEST 
4CONTBL  IFl.0v.s9.  SFNO 

return  ro  main  program 
i^TAHT  MWLs-l.»  SE'*0 
»£OB 
»EuF 


7.  SAMPLE  CODE  UPDATE 

The  following  file  is  included  to  illustrate  the  set  of  updates  which 
would  be  included  to  add  a  subroutine  to  the  existing  SOO  group  of  subrou¬ 
tines.  The  updates  are  comprehensive  in  that  they  illustrate  common  modifi¬ 
cations  and  include  a  namelist  and  subroutine  within  the  beam  quality  calcu¬ 
lation  division  of  the  SOQ  code. 


jkA/w«brMPx,p*oori,  n //.tci .  add  ztRNi*t  wfmoval  to  sou 
account ( JR ALT .•**»*<►«•-*«* «L»0« 1 711  I 
GETPF  (OLDPL  .S0077128.  l ()»*•••*••) 

UPOATETF.W) 

FTN( I tLCM«I ,PL*20000.L*0«a) 

RETUHN(OLDPL) 

COPYCR. INPUT, TARES. 

PEwtNO.TAPfb. 

RFLEC ( A30) 

LGO(PL*600nn) 

UFLCC  < l ) 

*EOP 

•ID  2MM IKE 
*1  OUL. 261 

IZE»N  «  0 
*1  GOL.31S 

1ZERN  a  0 

•I  S0077CY1.165 

C  a  23  APPLY  UP  to  24  ZEBNIKES  IN  UNITS  OF  WAVES  *  REAOS  ZEPNS 

•I  GUL.29 

LOGICAL  FRINGE 
•0  G0L.295.SO077CY1 .167 
C  / 16  /IT  /lA  /1<»  /20  /21  /22  /23  / 

X. 160 .170. 180 .190 .200 .2 10. 365. 230) . I FLOW 
•f)  GDL.325.SOD77CY1 .168 
C  / 16  / 1 7  / 18  / 1 9  /20  /21  /22  /2  3  / 

X. 160. I  70. 1 80  » 190 .200.21 0 .365  *230 )  .  IFLO* 

•1  G0L.327 

. . . . 

C  APPLY  7ERNME 

c. . . . . . 

230  IZEBN  a  I7ERN  *  1 

IF  (.NOT.INIT)  GO  TO  244 
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FRINGE  a  .FALSF. 

00  248  1*1.24 

248  P(I)  so. 

00  249  1=1.35 

249  PFRNG  ( I  )  =  (1. 

READ  (5.ZERNS) 

00  23*?  1*1.35 

239  IF (PFWNG< I) .NE.O. )  FRINGE*. T. 

IF ( .NOT. f HINGE)  GO  TO  241 
WMITF (8.245) 

245  FORMAT (/SX.*FM INGE  COEFFICIENTS  BEING  CONVERTED  TO  SOO  ORDER.*/) 
P<1)  =  0. 

P (2)  =  PFRNG(l) 

P ( 3 )  =  PFHNG (2) 

P<4)  a  PFRNG ( 3 ) 

PIS)  a  PFRNG (4 ) 

P (6)  a  PFRNG (5) 

P ( 7)  a  PFRNG(O) 

P ( 8 )  =  PFRNG ( 7) 

'  P<9)  a  PFRNG (9  I 
P ( 1 0 )  a  PFPNG(IO) 

PU1)  a  PFRNG  (8) 

P ( 1 2 )  a  PFRNG (11) 

P ( l 3 )  a  PFRNG (12) 

P(l4)  a  PFRNG (16) 

P ( 1 5 )  =  PFRNG (17) 

P ( 1 6 )  a  PFRNG (13) 

P ( 1 7 )  a  PFRNG (14) 

P ( 18 )  a  PFRNG (18) 

P( 19)  a  PFRNG< 19) 

P(20)  a  PFRNG ( 25 ) 

P (21 )  a  PFRNG ( 26) 

P (22)  a  PFRNG (15) 

P ( 23 )  a  PFRNG ( 24 ) 

P(24)  a  PFRNG (35) 

IFRTST  a  a 
00  240  K*20. 23 

2 46  IF (PFRNG (8) .NE.O. )  IFRTST  a  1 
00  243  K=27.34 

24 3  I F ( PFRNG ( K ) .NE.O.)  IFRTST  a  1 

ifufmtst.fo.d  write (6.24 n 

247  FORMAT (/5X.4RARNING  -  FRINGE  COEFFICIFNTS  OF  ORuER  2 0  THROUGH  ?3*. 
C  *  AND  27  THROUGH  34  ARE  IGNORED*/) 

241  00  24g  I  a  1 .24 

2 42  PZSAVEU.IZEPN)  a  Ptl) 

P2SAVE (25. IZERN)  a  RO 

2 44  CALL  ZFPN(PZSAVE(25.UEHNJ  .P7SAVEU  .I7FRN)  ) 

IGNAL  a  1 

GO  TO  999 
*0  GOL .27 

DIMENSION  IPlTS(SO) .PZSAVfi (?5, 10) .p(2a) .PFRNG(35) 

•I  GOL. 33 

DATA  P.PFRNG/24*0. .35*0./  .  RO  /  5.  / 

*1  GOL. 243 

namelist  //erns/  ro.p.pfrng 
RO  a  RADIUS  OVER  WHICH  ZERNlKES  ARE  VALID. 
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♦  no 


P  a  ARRAY  ZEWNlXF  COEFFICIENTS. 

PFRNG  *  AMPAY  FRINGE  ZEHNIXE  COEFFICIENTS  (CONVERTED  TO  P  IN  GPL). 
I  L»0P1.3fl5 

SUHROUTINE  ZfRN(RO.P) 

LEVEL  2.  CUP 

COMMON  /MELT/  CUR (32768) . CF IL ( 1 05 1 2 )  *  X  (  I  2« )  .wL«nPTS.MPY  *PWX .DRY 
COMPLEX  cf  il 
DIMENSION  P(2A) 

IF (RO.FO.O. )  GO  TO  70 
00  100  lYal.NPY 
J1  a  <IY-1)*NPTS 
YSQ  a  X(IY)»*2 
00  100  IXal.NPTS 
XSO  a  X ( IX) **2 
INOX  a  IX  .  J1 
R  a  SuPT !XSO*YSQ) 

52  Th?T  a  ATAN2(X(IY) .X(1X) ) 

R  a  AM INI (R/PQ.l.) 

CT  a  COS(TMFT) 

C2T  s  CUS ( 2 . * Th£T ) 

C3T  a  C0S(3.*ThET) 

CaT  a  COS(A.*THET) 

C5T  a  C0S(5. *THET) 

JP  A/R  .'■>  r  »  ’  I  ''.►LI.  *U>0  itWNIM-.  Uf-MUVAL  (0  -jOiJ 

AC  Cl. ’OUT  ;  JW  A|.  1  /  1 !  i 

<>t  TPF  (Ol.jUl  ,SilO.'»l2H»r,a*<**»*®*' 
jPlJAlPfF.ai 

F  ».M  <  I  .LC^a  I  .Ml  S<|nn00  «L  »<>  .m> 
wfc  T|iW(V)  (OLPPL  1 
COPYCR.  Input  ,  r  APfS, 

“*t ^  r no •  raPf  s, 
wFlFC (*  10) 
t.<jU(PL*6fiOm)t 
■JFLEC  (  1  ) 

-*t  OR 

Mu  ZWMtKf. 

M  OLI./61 

!ZFP*’  a  0 
*1  GDL.31S 

1/fcPN  5  0 

M  SUwTTCVl .IhU 

C  a  /  J  APPLY  UP  ru  2a  ZFP.lIXES  IN  UNITS  OF  rAVFS.  RFA  )5  ZFPNS 

•I  GUI .29 

LOG  tC  A(  FRfNUE 
•0  U0L.295.SON7/rYl . 167 

C  / 16  / 1  7  / 1 8  /IP  /?.0  /21  /22  /iO  / 

X. 160. 170, 1 AO. 1P0.200.2 10. 365. ? 30)  •  IK LOW 
*0  GOl.  )25.SoN77r»l .168 
C  / 1 6  / 1 7  /1h  /19  /2n  / 21  /?2  /2J  / 

X  .  160  ,  l  70.  l*n.  |<>0.?00  *210  • 36S.2J0  )  ,  I-LO* 

M  GDL.327 

. . . . . . . . 

C  Apply  /fwnt*e 


870  I/F»x'  *  1/feWN  .  1 

if  ( . no r .  in r  t  i  (jo  to  2* a 

FR I NOfc  *  .falsf. 

Di)  ?4H  l *1,24 
246  PCI  I  s  ,i. 
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no  24s  i*i  .is 

■<<*H  pfPNG  (I)  a.T. 

Jfc.40  (S.^k.^mS) 

no  23s  i  a l .  is 

2  3<)  IF  (PFPSGt  r  )  .\fc.0.  )  F*IM>fc*,T. 

I F  (  . Mu T  .  F  p  [  r.i.fc  »  (.,n  Tj  >0.1 
VP  I  TF  (S  .24S  I 

24b  FOSMA  r  ( /S*  .  <*FP  INGE  CGfc.?F  IC  IfcNTb  ntlNG  CONVEpTFO  To  bOO  OBOE*.*/) 


p  ( 1 ) 

= 

o. 

P  (2) 

3 

pfmns ; i i 

°  <  3  ) 

3 

PFw-jg  ( 2  1 

P  (4) 

3 

FF«7|()(J! 

J  (S) 

3 

PFPNC,  (  4  ) 

P(b> 

* 

PF  PNG  <  S  > 

P  (  7 ) 

3 

pFMN'i(n) 

P(S) 

3 

PF  P I.'D  (  7 ) 

*  P(B) 

3 

PF'kNG  (P) 

P(  10)  a  PFBNG(lU) 

P(  11  )  a  PFHNGIF) 

P  (  12)  a  PF074G  Ul) 

(J(13)  a  I’KJNfilU) 

P  (  1  4  )  a  FFUMillhl 

P ( 1 5 )  a  PFPNGU7) 

P(1M  a  PFPNUUJ) 

P  (  1  7  !  a  PFP\if,  (14) 

P  (  IF))  a  PFJNGi 1 P) 

P  (  14)  a  -F  Jt,f,  (  1  V) 

P(2Q)  a  PF  Sr.G ( ?S ) 

P  (  2  1  )  a  PF  wfiG  l  ?t>  ) 

P  (22)  a  PFBIJG  (  1  *«  ) 

P  (  23  )  a  PFONl*(24> 

P(24)  a  PFW'.GCVj) 

TFPTSr  a  0 
n<J  24*5  -1320,2.) 

2>»<b  t  F  (  PF  PfiO  ( A  )  .  Nfc  ,  0  .  )  IF.<TST  a  1 
no  24  )  *  =C  7  ,  4* 

2*3  T  F  (  PFwNO  (  *  I  .  Nfc  •  0  .  •  IFpTST  a  l 
IF  (  I* -TGT  .F'j. 1  )  *PITfc  (<4.247) 

247  FokmaT !/c*,»*aONiNG  -  FpinuF  COKFF t  C  t FN I b  OF  OPuEO  20  ThWjOgw  23* 
C  •  ANP  27  7mpu'Kjm  34  A«t  iGNOPfeO**/) 

241  no  242  f  a  1 ,24 

242  P2SAWF ( 1 . i /FB W)  3  P(l) 

P2SAVF  !2S.  I/FPN)  a  PU 

24*  CALL  2FPN (P/SAVfc ( ss. WF.hn) .P7bAVt ! I . I 2FPO) ) 

IGNAL  3  1 
GO  To  OOQ 
•0  G0L.<?7 

f)  I  ME  NS  1  074  IPLTS  (SO)  .P2SA</t  (?S»  I")  ,p  (24)  .PFHK0I35) 

•I  C,OL.  13 

DATA  P  ,pt  P'4<j/24»0 .  .Jb>*o./  ,  p|)  /  b.  / 

•i  r.0L.?'O 

NAMfcl  JST  7/FPN«l/  PO.".PFPN  j 

P()  a  PAPIUS  OVFw  PHICp  2fcP‘4lKtb  ABF  VALID, 
p  a  APWAV  /FPNIKF  CUtFFlCIENTb. 

PfONO  a  APPAT  Fkl-IGE  2F«NI*F  COt.  F  b  I L I  Fh  T  S  (CONVfcPrFI)  I'll  P  IN  GPL  ) 
I  t,P<)P1.3«S 

SUHPOoTISF  7F  PN ( *0 ,P I 
lEvEt  2. COP 


rn*4Mm>.  /*.».  L  r  /  rtj„  (  j e  r i,#  i  ,cf  lu  i  los  i? )  « %  1 1  2« )  , *t_  ,.<pts»mpv  iI'wxiDRy 
0OMPLt«  CF  t  L 
oi mens  pin  ki?*i 
!F(Op.k'j..).'  uO  Tn  /y 

00  lnU  IVsl,N>»V 
J1  =  (TY-li-NMT^ 
vso  a  *  i  !  r  i 
O')  !'»'•,  f  Ksl  ,f  PTg 
*S0  *  *  ( T X) <*««> 

I'<OX  a  t*  •  Ji 

m  =  s.,u  r  ■  *g>j»  rS(j ! 

S2  T  wf  T  s  A  T  AN/  (All*)  (XI1XI  I 
H  a  Aw  IN)  iM/M'J«  1  .  ) 

C  T  a  i;«»s  (  Cwe  T  ) 

C/T  a  r.*S(?.*TwfcT) 

C3T  S  r'yti  ( t  T ) 

C*.r  a  rng(4.«THtTi 

cst  a  n>s is.«Twfc r i 
ST  a  STN( Th£T) 

s?t  a  siM(?.»rHtn 

S3T  a  SIN(3.*ThET) 

S4T  a  5IM4,»Th£T) 

SST  3  <?IN(S.*Tm£T> 

R2  a  0*«2 
R3  3  R*W2 

M4  3  B*R3 
PS  =  R«U4 
P6  3  R«R5 
MM  3  W?*W6 
RIO  3  P2*Rfl 

OEL  3  P(l)  ♦  0<2>*P*C1  ♦  P ( 3 ) *w*S 1 

A  *  P (4) * <C.*R2-1 . ) 

d  ♦  P<5)*B2*C2T  ♦  Pl<j)*P2*S2T 

C  ♦  P ( 7 ) * ( 3. *p  *CT  ♦  P (tf ) • (  },*W3-?.*B) *ST 

0  «  P<9)*R3*C3T  •  P(10)*H3*SJT 

E  *  P  ( 11)  *  (<S.*P4-t>.*W2*l  .  > 

F  *  p ( 1 2) ♦ (4.«R*-3.«H2) *C?f  ♦  P ( 1 3 ) * (4. *W4-J. *R2) *S2T 

(j  ♦  H  C  14)  *  H  4  *  C  4  T  ♦  P<lb)*W4*S4T 

H  ♦  P(m)*flU.»B5-12.*PJ*3.*W)*CT 

I  *  P<17)*<10.*RS-12.*P3*?.*P)*ST 

j  •  P  ( IP)  •  (5.*R5-4.*R3l  <*C3T  *  P(  19)  *<S.*RS-4.*P3>  *S3T 

«  •  p<20)*H5*C5T  ♦  PfEimxb'SST 

L  ♦  P(2?)*(20,*R6-3a.*P4*l2.*P2-l.) 

**  •  R<?D>*(70.*H8-1*0.*P6*V().*P4-?0.*R?*1.) 

w  *  P  (24)  •  (2S2.*NlU-630.*R8*5ft0.*B*-?m.*P4*  J0.*«2-l  .) 

*0  Ino?  3  Inox»2 

OEL  3  nEL*2.*3.l4l5R2t>54 
COSO  a  COS (OEL) 

SINO  a  STM (OEL) 

CUPS  a  CUP ( I NO?- 1) 

CUP ( TnD?-1 )  3  CUWS*COSO  -  CUR( IN02) *SrND 
mo  CUP  (INC*?)  3  CURS*S  l  NO  ♦  CUR  ( IN02)  *C0S0 

WRITE  (*«20Q)  eg,p 

200  FORMAT  <*P7FPNtKfc-  PHASE  CORRECTION  APPLIED  WITH  NORMALIZATION* 
A  •  RAorUS  OF  *«G1S,4  /*  COEFFICIENTS  USEO  P  ( 1 )  -P  ( 2<* )  * . 

d  •  ARt  CONSISTFNT  with  The  PHASE  out  TO  THE  NTH  TERM  BEING*// 

C  20X«24h  Pm I ( n )  s  2*Pi *p (N) */ (N) // 


0  *  Z(N>  S  OF  ( NT  *  »  1  H*  »  *F  (  T  HE  T  A )  (  OF(N>  NOHMALIZEl)  TO  1.  AT  Ba  1  .  *// 
E  (1X.SO?0.5) ) 

“ETUPN 

7  3  N08  »  l»Prs*NPr 

00  SO  !»l«NOe 
ri»r*r 

IlMlsTT-l 

cuRtriMi)  s  soPT(cuH(in<**<»*cuH(ii'‘n««2) 

90  CllP(II)  *  0.0 
*miTF<fr,3on) 

300  FORMAT (//l OX. *CU  PHASE  has  BEtN  SET  To  ZE«0  IN  SUBROUTINE  ZEPN*//) 
RETURN 
END 

•EuR 

TEST  7EPNIKF  AUOtTlU.x 

SSTAPT  Ww(.sO  .00106*  NCALL*2*  0CAL»1S.»  NnPTS»1?B. 

IB*«.  00«X»0.0,  OOPYaO.O*  AMRG£S*20.0»  OGAUSS*0.0» 

RESTRTa.TRUE.  .  PL0TS=1.0.  IN»S, 

GYHTWCs.F ALSc . •  PH  I Q  AOa  0 . 0 ♦  SEND 
ST  3  STN(ThET) 

S2T  3  SI»>t?.*rHtT> 

sir  s  siN(3.*THEn 

S4T  3  $iM»,*rHtri 
SST  3  Clfs  (S.-THET) 

02  s  o*»2 
03  s  uok>2 
04  s  0*P3 
OS  3  0*04 

06  3  0*PS 
OH  3  w?*06 

0 1 0  *  W2*R« 

nEL  s  °<1>  ♦  °<2>*p*C1  ♦  P ( 3 >  *o*S T 

A  .0(4)  *  (c.»o<?-l  .  ) 

d  .  0(S)*o^»c2r  .  0(6)*02»b2T 

C  ♦  p ( 7) *( 3. *w j-2.*o) *CT  *  post *(.i. *ol-?. *oi *ST 

0  .  o(q)«oj«c.jr  *  puo)*h3*sJT 

E  .  P  ( 11  >  *  ( *.**<►-©. **2»  l  .  ) 

F  .  o  i  1  2)  •  (4. *04-3, *0*;)  *C?  I  ♦  0  (  1  0)  •  (4.«04-J.®02>  *S2T 

(i  .  O  (  14)  *04*C'»T  »  P(1S)*H4*S4T 

H  .  o  (  16)  *  ( 1  (J.»BS-12.*H  J*3.*0)  *CT 

I  .  P( 1 7) • ( 1 0.»«S-12.»H3*7.*H) *ST 

J  .  p  (  1HI  •  <S.»OS-<..*PJJ  *CJT  »  P  (  IP)  *  (S.*PS-4.*M3)  *S3T 

K  ♦  0(2i')*0S*CST  *  P(21  )*RB*BST 

L  *  P  (22>  •  (?0,*Pft-J(J. *04*12, *02-1.) 

H  .  P  (21)  •  (  70. *08-140, *06.0(1. *04-20. *P?»  1  .  ) 

N  .  P  i24)  *  (?b?.*WiU-630. •HH.'sftO. *06-210. *04.30, *W2-l  .  ) 

60  I NO?  3  I NOX »? 

DEL  *  PH.®?. *3. U1S026S4 
COSO  a  COS(UEL) 

SINO  a  SI-HUtU 

Cuos  3  C'lP  (  !NO?-l ) 

C(/P(rNO?-l)  3  CUOS«C(.'S0  -  CUP  I IN02)  *S  fND 
ioo  cup < Trip?)  *  cuos*sinp  ♦  CUO ( INU2) *CpSD 
OPITE  (6,200)  OO.P 

200  FORMAT  ( *p ON  t  *F  PHASE  CORRECTION  APPLIEP  *  I  Th  NORMALIZATION* 

A  *  PAnruS  OF  • ,6 l S . 4  /•  COEFFICIENTS  USED  P(l)-P(?*>** 

rf  •  APE  CONSISTFNT  oITm  The  PHASE  Out  TO  The  nTh  TFWM  HE  TNG*// 

C  20X.24H  PMl(J)  s  2* PX*P(NI«/<N)/7 

0  •  Z(N)  3  OF ( N ) * , 1 H*  »  *F  ( THE  T  A )  (  OF(N)  NOH“AL I ZEU  TO  1.  AT  Pal.*// 

E  ( 1X.S(,?().S)  ) 
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tlfcTUON 

73  NUH  a  ^'W^5•NtJT 
tO  f*l.NOR 
r  I  a  I  »  r 
I  I  Ml »  T  T-l 

cjp<n«ii  s  sd»T(cuH(in‘»»<;»ruK(ii'*i)**?) 

*0  C'Jrfl  1 1 1  *  n.o 

wRI^E  (H,3n->) 

3(0  FORMAT  <//l1X,<*CU  BHASfe.  HAS  HftN  St.  T  M  Z£PO  IN  SUHWOUT  IN£  7£PN*//, 
RETURN 
EnO 

»e<j» 

TEST  7ERNfKF  AUnlTJU.* 

SSTAOT  wwl  »0  .  <10  1  Oft  «  NCALLaZ*  0CAL»1S..  NnPT  S*  1  ?W  • 

Id*M.  nt-,p**o.n.  nuovao.o*  ampges«ZO.o*  nfiAuSS«o.n* 

H£5TPT».rPuF.  .  PC0TS»1.0.  iNaS. 

SfMTHCs.CALSr . .  OHfPA0«0.n,  *£N0 
TEST  7FPNIKE  AOOITION 
SCOnTWL  IELOwa*.  $£N0 

aperture  r h£  plane  pave  to  la.  cm. 

»APT'JP  OOl'TslT,.  OIN=0.*  Sfc.NO 
4C0NTPL  TElOwsP.  StNO 

PLOT  ThF  INITIAL  PLANE  wA  Vi- 
»PLOT  SEnP 

Initial  plane  wave 
SCONTPL  IEL0waZ3«  SEND 

AP®L v  SPFCIEP  7tPNlKtS 

S7FPNS  »0*A,  P(A)3.1,  P(S)=,1.  P<b>=.l.  TEND 
SCONTPL  TELO-art.  T£NU 

plot  the  7Epnikeo  plane  wave 

SPLCT  send 
ZEhNI*£p  plane  pave 
*  iCONTWL  I El  0*3?3,  SEND 

REMOVE  SPtCIEO  ZEPNIKES 

SZERNS  POa«,  PEWNGI3) a-. 1 .  PE  PNG { A ) a- , i ,  pEWNG t 5 ) a- . 1  ,  SEND 
iCONTHL  f  F  L  OWafl .  %E NO 

PLOT  ThE  i)E ZEPN I a£D  PLANt  RAVE 
4PL0T  SEuP 

OEZEPnIkeo  plane  wave 
SCONTPL  ICLL’wag,  i£NO 
PEI  URN  TO  MAIN 
SSTAPT  WWLs-l.,  SENO 
•EJP 

To  obtain  source  printouts  of  the  SOQ  code,  the  user  must  run  the  CDC 

update  program.  The  compile  file  may  be  used  as  a  source  listing  or  if  the 

user  so  desires  he  may  run  the  Fortran  compiler  on  the  code  to  obtain  a 

compiled  version  or  listing  along  with  any  desired  Fortran  compiler  options 

supported  under  the  CDC  MOS/BE  system.  The  file  output  will  contain  the 

desired  listings.  The  following  job  setup  is  include  as  a  guide: 

.Job  Card 

Account  Card 

Attach,  OLDPL,  SOQ77128,  ID- 
Update,  F. 

FTN. 
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